A MARSHALL CAVENDISH 



COMPUTER COURSE IN WEEKLY PARTS 



LEARN PROGRAMMING - FOR'FUN AND THE 



3 - "*«> 

4 1 



r 



'aw 



8 

i ■ 7 -, * 

^ v v ■ / 




Vol. 3 
APPLICATIONS 22 

LOOKING INTO IT 



No 35 



Zoom into the micro world with this powerful program 
GAMES PROGRAMMING 35 
LUNAR TOUCHDOWN 

A complete arcade-type game for you to enter 
BASIC PROGRAMMING 73 
HOW'S IT SOUND? 

Using your micro to explore the world of digital sound 
GAMES PROGRAMMING 36 
THE GAME OF FOX AND GEESE 

Make your computer think for itself in INPUT'S new game 
MACHINE CODE 36 



1088 



1091 



CLIFFHANGER: STARTING OFF 



1101 



Start Willie off on his picnic 



BASIC PROGRAMMING 74 



HOW BASIC PROGRAMS ARE STORED 1 1 06 

Find out what your machine does with your programs 

INDEX 

The last part of INPUT, Part 52, will contain a complete, cross- referenced index. 
For easy access to your growing collection, a cumulative index lo the contents 
of each issue is contained on the inside back cover. 



PICTURE CREDITS 

Front cover, Dave King. Pages 1081, 1083, 1084, 1086, Gary Wing. Pages 1082, 
1092, 1100, Peter Reillv. Page 1088, Ian Craig. Page 1090, NASA. Pages 1091, 
David Redfern Photography, Paul Chavc. Page 1094, Paul Chave. Pages 1096, 1098, 
1100, Phil Dobson. Pages 1011, 1102, 1104, Steve Rippington, Pages 1107, 1111, 
Dave King. 

© Marshall Cavendish Limited 1984/5/6 
All worldwide rights reserved. 

The contents of this publication including software, codes, listings, 
graphics, illustrations and text are the exclusive property and copyright of 
Marshall Cavendish Limited and may not be copied, reproduced, 
transmitted, hired, lent, distributed, stored or modified in any form 
whatsoever without the prior approval of the Copyright holder. 

Published by Marshall Cavendish Partworks Lid, 58 Old Compton Street, London W1V 5PA. 
England. Typeset by MS Filmsetting Limned. Frame, Somerset. Printed by Cooper Clegg 
Web Offset Ltd, Gloucester and Howard Hunt Litho, London. 




HOW TO ORDER 
YOUR BINDERS 

UK and Republic of Ireland: 

Send £4.95 (inc p & p) (IR£S.9S) for 
each binder to the address below. 

Marshall Cavendish Services Ltd, 

Department 980, Newtown Road, 

Hove, Sussex BN3 7DN 
Australia; See inserts for details, or 
write to INPUT, Times Consultants 

PO Box 213, Alexandria, NSW 2015 
New Zealand: See inserts for details, or 
write to INPUT, Gordon and Gotch 
(NZ) Ltd, PO Box 1 595, Wellington 
Malta: Binders are available from local 
newsagents. 



There are jour binders each holding 13 issues, 

BACK NUMBERS 

Back numbers are supplied at the regular cover price :;sub)eci to availability) . 
UK and Republic of Ireland: 

INPUT, Dept AN, Marshall Cavendish Services, 

Newtown Road, Hove BN3 7DN 
Australia, New Zealand and Malta: 
Back numbers are available through your local newsagent. 



COPIES BY POST 

Our Subscription Department can supply copies lo any UK address regularly at £1.00 each. 
For example the cost of 26 issues is £26.00; for any other quantity simply multiply the number 
of issues required by £1 .00. Send your order, with payment to: 

Subscription Department, Marshall Cavendish Services Ltd, 

Newtown Road, Hove, Sussex BN3 7DN 
Please state the title of the publication and the part from which you wish to start. 



HOW TO PAY: Readers in UK and Republic of Ireland: All cheq ues or postal orders 
for binders, back numbers and copies by post should be made payable to: 
Marshall Cavendish Partworks Lid. 



QUERIES: When writing in, please give the make and model of your comptater,as 
well as the Part No. , page and line where the program is rejected or where it does 
not work. We can only answer specific q ueries - and please do not telephone. Send 
your queries lo INPUT Queries, Marshall Cavendish Partworks Ltd, 58 Old 
Compton Street. London WTV SPA. 



INPUT IS SPECIALLY DESIGNED FOR: 

The SINCLAIR ZX SPECTRUM (1 6K, 48K, 1 28 and +), 
COMMODORE 64 and 1 28, ACORN ELECTRON, BBC B 
and B+,and the DRAGON 32 and 64. 

In addition, many of the programs and explanations are also 
suitable forthe SINCLAIR ZX81 , COMMODORE VIC 20, and 
TANDY COLOUR COMPUTER in 32Kwith extended BASIC. 
Programs and text which are specifically for particular machines 
are indicated by the following symbols: 



SPECTRUM 16K, 
48K,128,and + 



[J ACORN ElECTRON, WjF \ 
t^« BBC B and B+ ^"* 



COMMODORE 64 and 128 



DRAGON 32 and 64 



ZX81 



^ 



VIC 20 



TANDY TRS80 

COLOUR COMPUTER 



22 fAPPUCATIONS,: 22 



LOOKING 
INTO IT 



DRAWING A PICTURE 



SETTING THE SCALE 



MAGNIFYING AND REDUCING 



HIDING DETAIL IN THE PICTURE 



MAKING ACCURATE DRAWINGS 



This versatile program can reduce a 
picture to a microscopic dot or 
expand it to astronomical 
dimensions. Use it to create highly 
accurate drawings or as a game 

The program that accompanies this article is 
rather more fun than the usual applications 
program. In fact it can be used either as a 
game or an application. 

It lets you draw a picture and then magnify 
any part of it to draw in more detail down to a 
microscopic scale. You can change the scale at 
any time using magnifications of many 
thousands or even hundreds of thousands. An 
enormous amount of detail can be hidden in a 
picture which disappears from view as you 
pan out, and reappears again as you zoom in. 

Imagine yourself with a powerful micro- 
scope peering more and more closely at some 
part of a scene. Detail appears as the magnific- 
ation increases and blurs into nothing as it 
decreases. Or you can look at it the other way. 
Starting with a view of your house you can 
imagine moving further and further away out 
into space. One by one your house, town, 
country and even earth itself disappears into a 
dot in the distance. Similar graphics effects 
can be achieved using the relatively short 
program given here. 

One way of using the program is to turn it 



into a game for two people. One person draws 
a scene hiding some 'treasure' at a very small 
magnification somewhere deep in the picture. 
The other person then has to search for the 
treasure. It can be surprisingly difficult. 
Imagine starting with a square 1 centimetres 
across. If this is magnified 5000 times the 
original square turns into an enormous area of 
a quarter of a million square metres — plenty 
of room to hide almost anything in. 

The program has serious applications too, 
of course. Very accurate line drawings can be 
made by entering detail at a much larger scale 
than usual and then reducing it to the correct 
size. Accurate technical drawings can be built 
up a section at a time in this way. The 
program is also useful in teaching. For 
example, in a geography lesson, the position 
of major towns could be marked on a map of 
the country but at a much reduced scale. At 
normal magnification they would only be a 
residual dot and would only appear in detail if 
you chose to zoom in at the correct position in 
the picture. 

You could even enter the names of the 
towns — although you cannot enter text with 
this program, it is a simple enough matter to 
draw out the letters. Use a large scale to draw 
them first — in the correct position — then re- 
duce them to the right size. 



HOW TO USE THE PROGRAM 



When you RUN the program you are presen- 
ted with a blank screen and a tiny flashing 
cursor at the centre. There are also two 
numbers. The one on the left gives the scale of 
the present screen, 1 to start with, and the one 
on the right gives the number of lines drawn. 
This is dimensioned to a maximum of 600 at 
the start of the program. The program is 
controlled from the keyboard and is ex- 
tremely easy to use. 

On all but the Commodore, the cursor 
keys move the dot around the screen. 
The Commodore uses @ and / for up and / 
down, and : and ; for left and right. You 
can speed up the movement of the cursor / 
by simultaneously pressing [SYMBOL SHIFT]. 4 
on the Spectrum, ISHIFTl on the Com- 
modore, [ COPY | on the Acorn and y^ 
[CLEAR | on the Dragon and Tandy 

The other keys used are L, M, C, 
D, I, O and Z. Here's what they do 
Press L to draw a line to the cur- 
sor or M. to move to the cursor 
without drawing a line. Pressing 
C returns the cursor to the 
centre of the 
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If you magnify this house 

If you find you've made a mistake, press D 
for delete and you'll be asked how many lines 
you want to delete. The program counts back- 
ward from the last line drawn and deletes 
the correct number of lines. The key out- 
puts a file so you can save your drawing, and I 
inputs a file to load in a saved picture. 
The Acorn program works with both tape and 
disk. For the other computers, changes for 
disk are given after the main program. 

Now for the interesting part. The Z 
(Zoom) key allows you to change the scale of 
the picture. The scale, or magnification, is 
entered as a number; for example, 2 doubles 
the scale and .5 halves it. The picture is 
redrawn to the new scale centred an the 
cursor — so always move the cursor to the 
middle of the point you want magnified. If 
any part of a line goes off the screen then it is 
not drawn at all except on the Acorns. The 
Acorns draw the part of the line that crosses 
the screen. 

Zooming to a scale of does nothing, while 
a scale of one redraws the picture centred on 
the cursor, but to the same scale. Entering a 
negative number produces a mirror image of 
the picture. The changes of scale are cumula- 
tive so a magnification of 2 followed by 
another 2 increases the magnification to 4. 

Note that if you enter a very small scale on 
the Dragon and Tandy, say .0001, this is 
converted to 10E-4 but appears on the screen 
as 104. This is a limitation of the routine that 
draws the numbers on the screen and doesn't 
affect the way the picture is drawn. 



10DEFFNa(x) = (x/256) + 128 
20 DEF FN b(x) = (x/256) + 85 
30 BORDER 0: INK 7: PAPER 0: CLS 
50 LET In = 1 : LET sc = 1: LET 1 = 600 
60 LET f = 0: LETx = 0: LETy = 0: LET 

zoom = 1 
70 DIM a(l + 1): DIM b(l): DIM c(l): DIM d(l) 
80 LETa(1) = x: LET b{1)=y 
90LETc(1} = x: LET d{1) =y 



you can look through the window 

100 LET i$ = INKEY$ 

110 IF i$=T' AND f AND l>ln THEN BEEP 

0.1,0: PLOT FN a(a(ln)),FN b(b(ln)): DRAW 

FNa(c(ln))-PEEK23677,FN 

b(d{ln)) - PEEK 23678: LET In = In + 1 : LET 

a(ln) = x: LET b(ln) = y: LET c(ln) = x: LET 

d(ln) = y: LET f = 
120IFi$ = "c"THEN LETx = 0: LETy = 0: 

LETc(ln) = x:LETd(ln) = y 
130 IF i$ = "m" THEN LET a(ln) =x: LET 

b(ln) = y 
140 IF i$ = "i" THEN GOSUB 420 
150 IF i$ = "o" THEN GOSUB 600 
160IFi$ = "d"THEN GOSUB 710 
1701Fi$ = "z"THEN LET Iv = 0: GOSUB 840 
180 LETsp = 256: IF CODE INKEY$< =41 

THEN LET sp = 2048 
190 IF INKEY$ = "8" OR INKEY$ = "(" AND 

x> -32768 + spTHEN LET f=1: LET 

x = x + sp: LET c(ln} = c(ln) + sp 
200 IF INKEY$ = "5" OR INKEY$ = "%" AND 

x < 32768 - sp THEN LET f = - 1 : LET 

x = x - sp: LET c(ln) = c{ln} - sp 
210 IF INKEY$ = "7" OR 1NKEY$ = '"" AND 

y> - 22400 + sp THEN LET f = 1: LET 

y = y + sp: LET d(ln) = d(ln) + sp 
220 IF INKEY$ = "6" OR INKEY$ = "&" AND 

y < 22400 -sp THEN LET f=T: LET 

y = y — sp: LET d(ln) = d(ln) sp 
230 GOSUB 250 
240 GOTO 100 
250 PRINT AT 1,2; INVERSE 1; 

"□SCALE :";: LET a$ = STR$ sc: IF LEN 

a$>4THENLETa$ = a$(T0 4) 
255 PRINT INVERSE 1;a$;AT 1,18; 

"□LINES:";ln-1 
280 LET bx = FN a(a(ln}): LETby = FN 

b(b(ln)}: LET ex = FN a(c(ln)): LETey = FN 

b(d(ln)) 
290 PLOT bx,by: PLOT ex,ey 
310 PLOT OVER 1;bx,by: PLOT OVER 1;ex,ey 
320 RETURN 
420 CLS 

430 INPUT "ENTER F1LENAMED";f$ 
435 IFf$ = ""THEN GOTO 430 
440 LET In = 1 : LET zoom = 1: LET sc = 1 



and see a book on the table 

460 LOAD f$ DATA a{) 

470 LOAD f$ DATA b() 

480 LOAD f$ DATA c() 

485 LOAD f$ DATA d() 

490LETIn = a(601) 

590 RETURN 

600 CLS 

610 INPUT "ENTER FILENAME! I";f$ 

615 IF f$="" THEN GOTO 610 

620 LET lv = 1: GOSUB 840 

625 LET a(601) =ln 

630 SAVE f$ DATA a{) 

640 SAVE f$ DATA b() 

650 SAVE f$ DATA c() 

660 SAVE f$ DATA d() 

700 RETURN 

710 INPUT "ENTER NUMBER OF LINES TO 

DELETE'"k 
750 IFk = OR In -k< =0 THEN GOTO 

830 
755 LET In = In -k 
760 LET x = a(ln):-LETy = b(ln) 
780 CLS 

790 LET c(ln) = x: LET d(ln) =y 
800 IF In = 1 THEN GOTO 830 
810 IF ABS (c(ln-1)) <32767 AND ABS 

(d(ln - 1 )) < 22399 THEN LET x = 0: LET 

y = 
820 LET lv = 2: GOSUB 840 
830 RETURN 

840 IF ln = THEN RETURN 
850 I F Iv = 1 TH EN LET zoom = 1 /sc: CLS : 

GOTO 920 
860 IF lv = 2 THEN LET zoom = 1: GOTO 920 
870 BEEP .1,10: INPUT "ENTER ZOOM SCALE 

";zoom 
890 IF zoom = THEN GOTO 1020 
910 CLS 

920 FOR u = 1 TO In — 1 
930LETa(u) = (a(u)-x)*zoom:LET 

b(u) = (b(u) — y)'zoom 
940LETc(u) = (c(u)-x)*zoom:LET 

d(u) = (d(u) — y)*zoom 
950 IF ABS (a(u))<32768 AND ABS 

(b(u)) < 22400 AND ABS (c(u)) < 32768 

AND ABS (d(u)) < 22400 THEN PLOT FN 
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a(a(u)),FN b(b(u)): DRAW FN 

a(c(u)) - PEEK 23677,FN b(d(u)) - PEEK 

23678 
960 NEXT u 
970 LET a(i/H(a(u)-x) 'zoom: LET 

b(u) = (b{u) — y)*zoom 
980LETc(u) = (c(u)-x)*zoom:LET 

d(u) = (d(u) — y)'zoom 
990LETx = c(ln): LET y = d(ln) 
1000 IF ABS (a{ln)} >32767 OR ABS 

(b(In))>22399 THEN LET a(ln)=x: LET 

b(ln)=y 
1010 LET sc = SC*zoom 
1030 RETURN 

If you have a Microdrive make these changes 
to the program: 

437 INPUT "ENTER DRIVE NUMBER ";drv 
460 LOAD ""m";drv;'T' + f$ DATA a() 
470 LOAD , "m";drv;"2" + f$ DATA b() 
480 LOAD "'m";drv;"3"+f$ DATA c() 
485 LOAD , "m";drv;"4" + f$ DATA d() 
617 INPUT "ENTER DRIVE NUMBER ";drv 
630 SAVE *"m";drv;"1" + f$ DATA a() 
640 SAVE *"m";drv;"2" + f$ DATA b() 
650 SAVE *"m";drv;"3" + f$ DATA c{) 
660 SAVE *"m";drv;"4" + f$ DATA d() 



You'll need a Simons' Basic cartridge, or 
INPUTs own machine code hi-res utility 
(starting on page 748), for this program. 

10 PRINT "□E":COLOUR 6,6:SC$ = 

"D":SC = 1:LN$ = SC$ 
20 HIRES 0,15:GOSUB 790 
30LN% = 0:L% = 600 
40X% = 0:Y% = 0:ZO = 1 
50 DIM BX(L%),BY(L%),EX(L%),EY(L%) 
60BX(0) = X%:BY(0)=Y% 
70EX(0)=X%:EY(0)=Y% 
80GOSUB110:GOTO80 
90 LINE 160 + BX(LN%),100 + BY{LN%), 

160 + EX(LN%),100 + EY(LN%),2 
100 RETURN 
110 DL = 0:A$ = "":GETA$:IFA$ = "L"AND 

F%AN D L% > LN%TH E N GOSUB 260 
120GOSUB90 
130 IFA$ = "C"THENX% = 0:Y% = 0: 

EX(LN%) = X%:EY(LN%) = Y% 
140 IFA$ = "M"THENPLOT160 + BX(LN%), 

100 + BY(LN%},0:BX(LN%) = X%: 
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BY(LN%) = Y% 
150 IFA$ = "I"THEN GOSUB 640 
160 !FA$ = "0"THEN GOSUB 570 
170 IFA$ = "D"THEN GOSUB 460 
180 IFA$ = "Z"THENS% = 0:GOSUB 290 
190SP% = 1:IFPEEK(653) = 1THEN 

SP% = 8 
200 I FPEEK(1 97) = 50ANDX% + SP% < 1 59 

TH EN F% = - 1 :X% = X% + SP%: 

EX(LN%) = EX(LN%) + SP% 
21 0IFPEEK(1 97} = 45ANDX%— SP% > — 1 59 

THENF% = - 1 :X% = X% - SP%: 

EX(LN%) = EX(LN%)-SP% 
220 IFPEEK{1 97) = 46ANDY% — SP% > -99 

TH EN F% = - 1 : Y% = Y% - SP%: 

EY(LN%) = EY(LN%)-SP% 
230 IFPEEK(197) = 55ANDY% + SP% 

< 99TH EN F% = - 1 :Y% = Y% + SP%: 

EY(LN%) = EY(LN%) + SP% 
240 GOSUB 90 
250 RETURN 
260 LINE 160 + BX(LN%),100 + BY(LN%), 

1 60 + EX(LN%},1 00 + EY( LN%),1 : 

LN% = LN% + 1:GOSUB790 
270 BX(LN%)=X%:BY(LN%)=Y%: 

EX(LN%) = X%:EY(LN%) =Y%:F% = 
280 RETURN 

290 IFLN% = 0ANOZZ = 0THEN450 
300 ZZ = 0:IFS% = 1THENZO = 1/SC: 

GOTO340 
310 I FS% = 2THENZO = 1 :GOTO340 
320 NRM:INPUT"QENTER THE ZOOM 

SCALE||";D$ 
330ZO = VAL{D$):IFZO = 0THEN 

CSET(2):GOTO440 



340 HIRES 0,15 
350FORU = 0TO{LN%-1) 
360BX(U) = (BX(U)-X%)*ZO: 

BY(U) = (BY(U)-Y%)*ZO: 

BX = BX(U):BY = BY(U) 
370EX(U) = (EX(U)-X%)*ZO: 

EY(U) = (EY(U)-Y%)*ZO: 

EX = EX(U):EY = EY(U) 
380 GOSUB 710 
390 NEXTU 
400BX(U) = (BX(U)-X%)*ZO: 

BY(U) = (BY(U)-Y%)70 
410EX(U) = (EX(U)-X%)*ZO: 

EY(U} = (EY(U)-Y%)*ZO 
420X% = EX(LN%) 
430Y% = EY(LN%) 
440SC = SC'ZO:GOSUB790 
450 RETURN 
460 NRM:INPUT"QHOW MANY LINES DO 

YOU WANT DELETED";D$ 
470 K% = VAL(D$) 
480 I FK% = 00 R LN% - K% < 0TH E N 

CSET(2):GOTO560 
490 LN$ = STR$(LN%):LN% = LN% 
500 X% = BX(LN%):Y% = BY(LN% 
510 HIRES 0,15:GOSUB 790 
520 EX(LN%) = X%:EY(LN%) = Y% 
530 IFLN% = 0THENZZ = 1;GOTQ550 
540 IFABS(EX(LN%-1))<160ANDABS 

(EY(LN%-1))<100THENX% = 0:Y% = 
550 S% = 2:G0SUB 290 
560 RETURN 
570 NRM:INPUT "□ENTER OUTPUT 
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FILENAME||";F$ 
580S% = 1:GOSUB290 
590NRM:CM$ = ",":OPEN1,1,1,F$ 
600 PRINT#1,LN%:FORU = 0TOLN% 
610PRINT#1,BX(U);CM$;BY{U);CM$;EX(U); 

CM$;EY{U) 
620 NEXTU:CL0SE1:HIRES 0,15: 

S%=2:GOSUB290 
630 RETURN 
640 NRM:INPUT"EJENTER INPUT 

FILENAMEfc|";F$ 
650 LN% = 0:S% = 1:GOSUB 290 
660NRM:OPEN1,1,0,F$ 
670INPUT#1,LN%:FORU=0TOLN% 
680 INPUT # 1,BX(U},BY(U),EX(U),EY(U): 

NEXTU 
690 CL0SE1 :X%= EX(LN%):Y%= EY(LN%): 

HIRES 0,15:GOSUB 790:S%=^: 

GOSUB 290 
700 RETURN 
710 SX=(EX-BX)/100:SY = 

(EY-BY}/100 
720FORQ = 0TO100 
730 IFABS(BX) > 1 550RABS(BY) > 95THEN 

BX = BX + SX: B Y = BY + SY: N EXTQ: 

GOTO780 
740 SX = (EX - BX)/100:SY = (EY- BY)/1 00 
750FORQ = 0TO100 
760 IFABS(EX) > 1 550RABS{EY) > 95THEN 

EX = EX - SX: EY = EY - SY: N EXTQ 
770 LI N E 1 60 + BX,1 00 + BY,1 60 + EX, 

100 + EY,1 
780 RETURN 



790 TEXT 264,0,LN$,0,1,8:LN$ = STR$(LN%): 

TEXT 160,0,"NUM OF LINES: 

" + LN«,1,1,8 
800 TEXT 48,0,SC$,0>1,8:SC$ = STR$(1NT 

(SC'1000)/1000): 

TEXT 0,0,"SCALE:" + SC$,1, 1,8 
810 RETURN 

To use the program with a disk drive change 
Lines 590 and 660 to: 

590NRM:CM$ = ",":OPEN1,8,1,F$ 
660NRM:OPEN1,8,0,F$ 



10-FX212.216 

20 ON ERROR GOTO 1260 

30MODE4:VDU23,1,0;0;0;0;: 

VDU29,640;512; 
40L% = 0:scale = 1:N%=600 
50X% = 0:Y% = 0:zoom = 1 
60 DIM begx{N%),begy(N%), 

endx(N%),endy(N%) 
70begx{0) = X%:begy(0)=Y% 
80endx{0) = X%:endy{0) = Y% 
90'FX4,1 
95 PLOT 69,0,0 
100 REPEAT 
110 PROCkey 
120 UNTIL FALSE 
130 END 

140 DEF PROCdraw 
150PRINTTAB(5 3 1)"Scale:";scale; 

TAB(18);"Nooflines:";L% 
160 GCOL 4,0 
170 MOVE begx(L%),begy(L%): 

DRAW endx(L%),endy(L%) 
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Game tips 

When you use this program as a game, the 
difficult part is to make sure that the 
hidden message or treasure doesn't appear 
as an obvious blob in the picture. 

The trick is to draw in lots of detail at 
different magnifications, so your oppo- 
nent has to search for the correct area of 
the picture as well as the correct magnific- 
ation. Don't hide the treasure too well, 
though, as it is easy to become hopelessly 
lost at higher magnifications. 

If you want to score the game, simply 
count the number of moves and changes of 
scale the player makes. The one with the 
smallest number is the winner. 



175 PLOT 69,begx(L%),begy(L%) 

180 ENDPROC 

190 DEF PROCkey 

200 IF INKEY( — 87) = — 1 AND F% AND 

N%> L% VDU7:GCOL0,1:MOVE begx(L%), 

begy(L%):DRAWendx(L%),endy(L%):L% = 

L% + 1 :begxf L%) = X%:begy(L%) = Y%: 

endx(L%) = X%:endy(L%) = Y%: F%= 
210 PROCdraw 
220 IF INKEY( — 83) VDU7: 

X% = 0:Y% = 0:endx{L%) = X%: 

endy(L%)=Y% 
230 IF INKEY{ — 102) VDU7: 

begx(L%) = X%:begy{L%) = Y% 
240 IF INKEY{ — 38) PROCinput 
250 IF INKEY{ — 55) PROCoutput 
260IFINKEY{-51) PROCdelete 
270 IF INKEY{ — 98) PROCzoom(0) 
280 IF INKEY< — 106) sp% = 24 ELSEsp% = 4 
290 IF INKEY( — 122) F%=-1: 

X% = X% + sp%:endx(L%) = 

endx(L%)+sp% 
300 IF 1NKEY( — 26) F% = — 1 : 

X% = X% - sp%:endx(L%) = 

endx{L%)-sp% 
310 IF INKEYC — 42) F% = —1: 

Y%=Y%-sp%:endy(L%) = 

endy{L%)-sp% 
320 IF INKEY( — 58) F% = — 1 : 

Y%= Y% + sp%:endy(L%) = 

endy(L%)+sp% 
330 PROCdraw 
340 ENDPROC 
350 DEF PR0Czoom(s%) 
360 IF L% = GOTO 660 
370 IFs% = 1 THEN zoom = 1 /scale: 

CLS:G0T0 540 
380 IF s% = 2 THEN zoom = 1:G0T0 540 



390 VDU7 

400 VDU30:PR1NT'SPC(39):VDU30 

410 PRINT'"Enter the zoom scaled "; 

420 D$ = "" 

430 REPEAT 

440 FOR C% = TO100:NEXT:*FX15,1 

450 zoom = GET 

460 IF zoom = 1 27 AND LEN(D$) = 

VDU7:G0T0 440 
470 IF zoom = 127 D$ = LEFTS 

'(D$,LEN(D$)-1):GOTO500 
480 IF LEN(D$} = 19 VDU7:G0T0 440 
485 IF (zoom<46 OR zoom>57) AND 

zoom < > 1 3 AND zoom < > 69 

THEN 450 
490 D$=D$ + CHR${zoom) 
500 VDU zoom 
510 UNTIL zoom = 13 
520 zoom = EVAL(D$) 
530 IF zoom = 0VDU30: PRINT' 

SPC(39):GOTO650 
540 CLS:GCOL0,1 
550 FOR U% = 0TO L%-1 
560 begx(U%) = (begx(U%) -X%)*zoom:begy 

(U%) = (begy(U%) -Y%)*zoom 
570 endx(U%) = (endx(U%) -X%)*zoom: 

endy(U%) = (endy(U%) - Y%)"zoom 
580 IF ABS(begx(U%)) < 32768 AND ABS 

(begy(U%)) < 32768 AND ABS(endx(U%)) 

< 32768 AND ABS(endx(U%))< 32768 

MOVE begx(U%),begy(U%):DRAW endx 

(U%),endy(U%) 
590 NEXT 
600 begx(U%) = (begx(U%) -X%)-zoom:begy 

(U%) = (begy(U%) - Y%)'zoom 
610 endx(U%) = (endx(U%) -X%)*zoom:endy 

(U%) = (endy(U%) - Y%)"zoom 
620 X% = endx(L%):Y% = endy(L%) 
630IFABS(begx(L%))>32767OR 

ABS(begy(L%))> 32767 THEN 

begx(L%) = X%:begy(L%) = Y% 
640 scale =scale*zoom 
650 VDU7 
660 ENDPROC 
670 DEF PROCdelete 
680 VDU7 

690 VDU30:PRINT'SPC(39):VDU30 
700 PRINT'"How many lines do you want 

deleted D"; 
710 0$ = '"' 
720 REPEAT 

730 FOR C% = TO100:NEXT:'FX15,1 
740K% = GET 
750 IF K%=13 GOTO 810 
760 IF K% <48 OR K%>57 AND 

(K%o127ORLEN(D$) = 0) 

VDU7:G0T0 730 
770IFK% = 127D$ = LEFT$(D$, 

LEN(D$)-1):GOTO800 
780 IF LEN(D$) = 3 VDU7:G0T0 730 
790D$ = D$ + CHR$(K%) 



800 VDU K% 

810 UNTIL K%= 13 

820K% = VAL{D$) 

830 IF K% = OR L% - K% < GOTO 

910 
840L% = L%-K% 
850 X%= begx(L%):Y% = begy(L%) 
860 CLS 

870 endx{L%) = X%:endy(L%) = Y% 
880 IF L% = GOTO 910 
890 IF ABS(endx(L%-1}) <640 AND 

ABS(endy(L%-1}) < 51 2 THEN 

X% = 0:Y% = 
900 PROCzoom(2) 
910VDU30:PRINT'SPC(39) 
920 ENDPROC 
930 DEF PROCinput 
940 VDU30:PRINT'SPC(39):VDU30 
950VDU7:*FX15,1 
960 INPUT'"Enter the input 

filenameD"f$:CLS 
970L% = 0:GCOL0,0 
980PROCzoom(1) 
990 GCOL4,0 
1000 D% = PEN UP f$ 
1010 INPUT #D%,L% 
1020 FOR U% = TO L% — 1 
1030 INPUT # D%,begx(U%),begy(U%), 

endx(U%),endy(U%) 
1040 IF ABS(begx(U%))< 32768 AND 

ABS(begy(U%))< 32768 AND 

ABS(endx(U%))< 32768 AND 

ABS(endy(U%))< 32768 MOVE 

begx(U%),begy(U%): DRAW 

endx(U%),endy(U%) 
1050 NEXT 
1060 INPUT #D%,begx(L%),begy 

(L%),endx(L%),endy(L%) 
1 070 X% = endx(L%):Y% = endy(L%) 
1080 CLOSE #0 
1090 VDU7 
1100 ENDPROC 
1110 DEF PROCoutput 
1120 VDU30:PRINT'SPC(39):VDU30 
1130 VDU7:*FX1 5,1 
1140 INPUT"'Enter the output 

filename □"($ 
1150 PR0Czoom(1) 
1160VDU30:PRINT'SPC{39): 

PRINTTAB(0,1); 
1170 D% = 0PENOUTf$ 
1180 PRINT #D%,L% 
1190 FOR U% = 0TO L% 
1200 PRINT # D%,begx(U%),begy 

(U%),endx{U%),endy(U%) 
1210 NEXT 
1220 CLOSE #0 
1230VDU30:PRINT'SPC(39) 
1240 VDU7 
1250 ENDPROC 
1260MODE7 
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1270 *FX4,0 

1280 REPORT:PRINT"Dat lineLT';ERL 
1290 END 

This program will RUN on the Tandy if you 
change the 223 in Line 10 to 247. 

10PMODE4,1:COLOR0,1:PCLS: 

SCREEN1,0:V = 223 
20 DIM NU$(10):FOR l=0TO 10: 

READ NU$(I):NEXT 
30DEFFNA(X) = {X/256) + 128 
40DEFFNB(X) = (X/256) + 96 
50 LN = 0:SC = 1:L = 600 
60X = 0:Y = 0:ZOOM = 1 
70 DIM BX(L),BY(L),EX(L),EY(L) 
80BX(0) = X:BY(0) = Y 
90EX(0)=X:EY(0)=Y 
100I$ = INKEY$ 
110IFI$ = "L"ANDFANDL>LNTHEN 

LINE(FNA(BX(LN)),FNB(BY{LN)))-(FNA 

(EX(LN)},FNB(EY(LN)}), 

PSET:LN = LN + 1:BX(LN)=X:BY(LN) = Y: 

EX(LN)=X:EY{LN)=Y:F = 
120 IF l$ = "C" THEN X = 0:Y = 0: 

EX(LN) = X:EY(LN) = Y 
130 IF |$ = "M" THEN BX(LN) = X: 

BY(LN)=Y 
140 IF l$ = "l" GOSUB420 
150 IF l$ = "0" GOSUB 600 
160 IF l$ = "D" GOSUB 710 
170 IF l$ = "Z" THEN LV = 0:GOSUB 840 
180IFPEEK(339) = 191 THEN SP = 2048 

ELSE SP = 256 
190 IF PEEK(343)=V AND X> -32768 + SP 

THEN F= — 1:X = X — SP:EX(LN) = 

EX(LN)-SP 
200 IF PEEK(344) = V AND X< 32768 -SP 

THEN F=— 1:X = X + SP:EX(LN) = 

EX(LN) + SP 
210 IF PEEK(341) = V AND Y> -24576 

+ SPTHEN F= — 1:Y=Y — SP: 

EY(LN) = EY(LN)-SP 
220 IF PEEK(342)=V AND Y<24576 — SP 

THEN F=-1:Y = Y + SP:EY(LN) = 

EY(LN) + SP 
230 GOSUB 250 
240 GOTO 100 
250SS$ = STR$(SC) 
260 DRAW "BM0,183":GOSUB 330 
270SS$ = STR$(LN):DRAW"BM200, 

183":G0SUB 330 
280BX = FNA(BX(LN)):BY = FNB(BY(LN)): 

EX = FNA(EX(LN)):EY = FNB(EY(LN)) 
290 PSET(BX,BY):PSET(EX,EY) 
300 FOR D = 1 TO50:NEXTD 
310 PRESET(BX,BY):PRESET(EX,EY) 
320 RETURN 
330 FOR 1 = 1 TO LEN{SS$) 



340DI = ASC(MID$(SS$,l,1))-48 
350 IF D1= — 2 THEN D1 = 10 
360 IF D1<0 OR D1>10 THEN 380 

370 DRAW "C1;XNU$(8);C0;BL8" + 

NU$(D1) + "BR2" 
380 NEXT I 
390 RETURN 
400 DATA R6D8L6U8BR8,BR6ND8BR2, 

R6D4L6D4R6BR2BU8, 

R6D4NL3D4NL6BR2BU8,D4R6D4U8BR2, 

NR6D4R6D4L6BE8 
410 DATA D8R6U4L6U4BR8,R6ND8BR2, 

R6D8L6U8D4R6U4BR2,D4R6D4U8L6BR8, 

BR3BD8NR1BR5BU8 
420 CLS 
430 PRINT@256 ) "";:LINE INPUT "ENTER 

LOADFILENAME>D";F$ 
440LN = 0:ZOOM = 1:SC = 1 
450 PCLS:SCREEN1,0 
460 OPEN "l",#-1,F$ 
470 INPUT #-1,N$ 
480LN = VAL(N$) 
490FORU = 0TOLN-1 
500 INPUT # — 1,BX$,BY$,EX$,EY$ 
510BX(U)=VAL(BX$):BY(U)=VAL(BY$): 

EX(U) = VAL(EX$):EY(U) = VAL(EY$) 
520 IF ABS(BX(U))< 32768 AND 

ABS(BY(U))<24576 AMD 

ABS(EX(U))<32768AND 

ABS{EY(U))< 24576 THEN LINE 

(FNA(BX(U)), FNB(BY(U)))- 

(FNA(EX(U)),FNB(EY(U))), 

PSET 
530 NEXT 

540 INPUT # — 1,BX$,BY$,EX$,EY$ 
550 BX(U) = VAL(BX$):BY(U)=VAL 

(BY$):EX(U) = VAL(EX$): 

EY(U) = VAL(EY$) 
560X = EX(LN):Y = EY(LN) 
570-CLOSE#-1 
580SCREEN1,0 
590 RETURN 
600 CLS 
610 PRINT@256,"";:LINE INPUT "ENTER 

SAVE FILENAME >D";F$ 
620 LV = 1:GOSUB 840 
630 OPEN "0",#-1,F$ 
640 PRINT #-1,STR$(LN) 
650FORU = 0TOLN 
660PRINT#-1,STR${BX{U)), 

STR$(BY(U)),STR$(EX(U)), 

STR$(EY(U)) 
670 NEXT 
680CLOSE#-1 
690 SCREEN1,0 
700 RETURN 
710 CLS 
720 PRINT@256,"HOW MANY LINES DO 

YOU WANT TOD DD DELETE"; 
730 INPUT K 
740 SCREEN1,0 



750 IF K = OR LN — K < THEN 830 
760 LN = LN — K 

770X=BX(LN):Y = BY(LN) 

780 PCLS 

790EX(LN)=X:EY(LN) = Y 

800 IF LN = THEN 830 

81 IF ABS(EX(LN - 1 )) < 32767 AND 

ABS(EY(LN-1))< 24576 THEN 

X = 0:Y = 
820 LV = 2: GOSUB 840 
830SCREEN1,0:RETURN 
840 IF LN = THEN RETURN 
850 IF LV = 1 THEN ZOOM = 1/SC: 

PCLS:GOTO 920 
860 IF LV = 2THEN ZOOM = 1:GOTO 920 
870 CLS 
880 PRINT@256,"ENTER THE ZOOM 

SCALED"; 
890 INPUT ZOOM 
900 IF ZOOM = THEN 1020 
910PCLS:SCREEN1,0 
920 FOR U = 0TO LN-1 
930BX(U) = (BX(U)-X)*ZOOM: 

BY(U) = (BY(U)-Y)*ZOOM 
940EX(U) = (EX(U)-X)"ZOOM: 

EY(U) = (EY(U)-Y)*ZOOM 
950 IF ABS(BX(U)) <32768 AND ABS 

(BY(U))< 24576 AND ABS(EX(U)) 

< 32768 AND ABS(EY(U)) < 24576 THEN 

L1NE(FNA(BX{U)), 

FNB(BY(U)))-(FNA(EX(U)), 

FNB(EY{U))),PSET 
960 NEXT 
970BX(U) = (BX(U)-X)*ZOOM: 

BY(U) = (BY(U)-Y)*ZOOM 
980 EX(U) = {EX(U)-X) 'ZOOM: 

EY(U) = (EY(U)-Y)'ZOOM 
990X = EX(LN):Y = EY(LN) 
1000 IF ABS(BX{LN))>32767 OR ABS 

(BY(LN))>24576THEN BX(LN)=X: 

BY(LN)=Y 
1010SC = SC*ZOOM 
1020 SCREEN1,0 
1030 RETURN 

The Dragon program will work with a 
Dragon Data disk drive if you make these 
changes: 

Delete Line 460 and add 

470 FREAD F$,FROM0;N$ 

500 FREADF$;BX$,BY$,EX$,EY$ 

540 FREAD F$;BX$,BY$,EX$,EY$ 

570 CLOSE 

630 CREATE F$ 

640 FWRITEF$;STR$(LN) 

660 FWRITEF$;STR$(BX(U)),":", 

STR$(BY(U)),":",STR$(EX(U)), 

":",STR$(EY(U)) 
680 CLOSE 
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LUNAR 
TOUCHDOWN 



One small step for INPUT. . . . You'll 
need all your skill and judgement to 
manoeuvre the Lunar Lander safely 
to the landing pad, in this complete 
arcade-type game 



Games Programming need not involve huge 
complicated programs to produce a self- 
contained game. Here is a version of the 
popular Lunar Lander program that offers 
high resolution graphics and full control over 
the craft. 

The game is complete and playable as it 
stands, but there are many possibilities for 
you to customize it to suit your own pre- 
ferences. You may welt want to add an 
'another go?" routine to save having to RUN 
the program after each descent. You may wish 
to alter the graphics and the sound too — it's 
up to you. 



ICOMTROLS 



Spectrum: the cursor keys — 5, 7 and 8. 
Commodore: the cursor keys for left and 

rust. 

Acorn: Z for left. X for right and space for 
thrust. 
Dragon Tandv: arrow control kevs. 



10 BORDER 1: INK 7: PAPER 0: CLS : BRIGHT 

1 
20 FOR N = 1 TO 50: PLOT RND'255. 

(RND-135)+40:NEXTN 



70 PLOT 0.0: FOR N = 1 TO 1 6: READ GX,GY: 

DRAW GX,GY: NEXT N 
80 DATA 1 8,30.1 8, - 1 5,1 8, - 8,1 8,8,1 6,20, 

16,5,13.-20,16.-8,18,-4,15,0,10,10, 

20,25,10, - 20,10, - 10,20, - 5,18,20 
90 PRINT AT 0,4; INK 6; PAPER 

2;" FUEL :";AT 0,18;" VELOCITY :" 
110 LET LX = RND*240 + 10: LET LY = 

160-(15+(RND'10}): LET XV=RND*15: 

LETYV = 0: LET F = 246 
115 GOSUB 4000 
120 GOSUB 1000: GOSUB 2000: GOSUB 

3000 
130 IF LY>20 THEN GOTO 120 
135 PAUSE 50 
140 CLS : IF LX<154 OR LX>164 OR ABS 

YV>4 THEN GOTO 160 
150 PRINT "CONGRATULATIONS A 

SUCCESSFULnn □□LANDING !!": 

RESTORE 5000: FOR N = 1 TO 14: READ 

A,B: BEEP A,B: NEXT N: GOTO 170 
160 PRINT AT 10,7; FLASH 1; INK 2; PAPER 

7;"!!!! CRASHED !!!!": FOR T=1 TO 50: 

BORDER RND'7: BEEP .01,RND*5: NEXTT 
170 PAUSE 400 
180 STOP 

1000 IF LY< 160 THEN GOSUB 4000 
1010 LET LX=LX + XV: LET LY= LY + YV: IF 

LY< 300 THEN BEEP .02.LY/5 
1030 IF LX<5 THEN LET LX = LX + 245 

1035 IF LX>250 THEN LET LX = LX - 242 

1036 IF LY>160 THEN RETURN 




1037 IF LY< 10 THEN RETURN 

1040 GOSUB 4000 

1050 RETURN 

2000LETYV = YV-.5:IFF<1 THEN 

RETURN 
2010IFINKEY$ = "7" AND F>3THEN LET 

YV = YV + 1: LET F=F- 3: RETURN 
2020IFINKEY$="5"THEN LET 

XV = XV-. 5: LET F = F-1: RETURN 
2030 IF INKEY$ = "8" THEN LET 

XV = XV + .5: LET F = F-1: RETURN 
2040 RETURN 
3000 PRINT AT 0,10;" " + STRJF + " ";AT 

0,28;" " + STR$INTYV + " " 
3010 RETURN 
4000 OVER 1: PLOT LX.LY: DRAW -5,-10: 

DRAW 5,2: DRAW 5, -2: DRAW -4,10 
4010 OVER 0: RETURN 
5000 DATA .2,4,.2,7,.2,5,.2,12,.2,0,.2,4,.2,4, 

.2,5,.6,7„2,rc,.2,0,.2,4,.2,2,.6,0 



10 HIRES 1,0:MULTI 7,4,4:C0L0UR 7,0: 

POKE 54296,1 5:POKE 54277,190: 

POKE 54278,248 
15 POKE 54276,0 
70 FOR Z = 20 TO 1 60 STEP 20:Y = 

179— RND(1)*40:LINE Z — 20,179, 

Z-10,Y,3 
72 FOR ZZ = 1 TO 3:PL0T RND(1)*160, 

RND(1)'150,ZZ:NEXTZZ 
74UNEZ-10,Y,Z,179,3:NEXTZ: 

PAINT 0,1 99,1 TEXT 64,192, 

76 LINE 0,199,159,199,2 
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A COMPLETE GAME 



LUNAR GRAPHICS 



FUEL GAUGE 



SPEED GAUGE 



LANDING CONTROL 



CUSTOM ZNG THE PROGRAM 



SOUND E FFECTS 

CRASHES 

SUCCESSFUL PROGRAMS 

THE LANDER 



110LX = RND{1)*248:LY = 15 + RND 

{1)*10:XV = RND(1)'15-8:YV = 

F = 246 
115 GOSUB 1040 
120 GOSUB 1010:GOSUB 2000:MULTI 

7,RND(1) , 2 + 4,RND(1)'B + 1 
130 IF LY<192 THEN 120 
140 IF LX<72 OR LX>88 OR YV>4 THEN 

160 

150 print •'□ a h ii a 

CONGRATULATIONS A SUCCESSFUL 

LANDING !" 
155 POKE 54276.33:FORZ = 1 TO 255: 

POKE 54273,Z:POKE54273,255 Z: 

NEXT Z: GOTO 170 
160 PRINT"QBBAD LANDING. . .": 

POKE 54276,129 
163 FOR Z = 1 TO100:COLOUR7,RND 

(1) , 2:POKE54273,Z 
165 FOR ZZ = 1 TO10:NEXTZZ,Z 
170 POKE 54276.0:NRM:POKE 198.0:END 
1010LX = LX + XV:LY = LY + YV:POKE 

54276,1 7:S = 255 -(255ANDLY): 

POKE 54273.S 
1020 IF LY<13 THEN RETURN 
1030 IF LX<0 THEN LX = 151 
1035IFLX>151 THENLX = 
1040TEXTLX,LY,"*",4,1,8: 

GOSUB 3000 
1050 TEXT DUY,"* ",4,1 ,8: 

POKE54276.16:RETURN 
2000 YV = YV+.5:IF LY< 13 THEN RETURN 



2010 GET K$:IF PEEK(653) = 2 AND F>3 

THEN YV = YV-1:F = F-3:RETURN 
2020 IF K$ = "H" THEN XV = XV-.5: 

F = F-1:RETURN 
2030 IF K$ = "||" THEN XV = XV+.5: 

F-F-1 
2040 RETURN 

3000 TEXT 1,1,"FUEL:" + STR$(F),1,1,8 
3010 V = 2'YV:IF ABS{V} >122 THEN 

V = 122*SGN(V) 

3020 TEXT 75,1 /'SPEED:" + STR$(V),1 ,1 ,8 

3021 TEXT 41 .1 ,STR$(F),0,1 .8 

3022 TEXT 1 23,1, STR$(V),0,1, 8 
3030 RETURN 



10MODE1 

20 GCOL0,3 

50 VDU 23,255,24.60,90,126,126.90,129.129 

70MOVE0,0:FORX = 80TO1280 

STEP80:READ A:DRAWX.A'32:NEXT 
80 DATA 6,2.1,3.8,9,4,2,1,0.0.2,9, 

4,1,7,3 
90 PRINTTAB(0,1)"FUEL'" 

"SPEED" 
110LX = RND(1192):LY = RND' 

{200)+690:XV = RND(15)-8JO£=0: 

F = 990:MOVEX,LY:VDU5,2 



115MOVE200.960:MOVE200,992:PLOT85. 

1200,960:PLOT85,1 200,992 
116 GCOL3.3 

120 GOSUB 1000:GOSUB2000:GOSUB3000 
130 IF LY>32 THEN 120 
140 CLS:tF LX<800 OR LX > 843 OR 

YV< -8THEN160 
150 PRINTTAB(0,7)"A SUCCESSFUL 

LANDING!!":GOTO 170 
160 PRINTTAB(0,7)"BAD CRASH" 
170 FOR T= 1 TO4000:NEXT:*FX15.1 
180 END 
1000 IF LY<901 THEN MOVELX.LY:VDU 

5.255,4 
1010LX = LX + XV:LY = LY + YV: 

SOUND1,-15,LY/4,1 
1020 IFLY>900THEN RETURN 
1030IFLX<0ORLX>1191 THEN 

LX=-119T(LX<0) 

1040MOVELX.LY:VDU5.255.4 
2000YV = YV-.5:1F 

\ F<1 THEN RETURN 

2010 IF INKEY( — 99) 
THEN YV = YV + 1: 
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F = F — 3 

2020 IF INKEY(-98) THEN XV = XV -.5: 

F = F-1 
2030 IF INK£Y( — 67} THEN XV = XV + .5: 

F = F-1 

2040 RETURN 

3000 GCOL0,0:MOVEF + 200,960: 

DRAWF + 200,992:MOVEF + 204,960: 

DRAWF + 204,992 
3010 V = YV4:IF ABS(V) >500 THEN 

V = 500*SGN(V) 
3020 MOVE200,930:MOVE200,950: 

PLOT85,1 200,930: PLOT85.1 200,950: 

GCOL0,3:MOVEV + 700,930: 

MOVEV + 700,950: PLOT85,700,930: 

PLOT85,700,950:GCOL3,3 
3030 RETURN 

Tandy owners should change the 223s in 
Lines 2010 to 2030 to 247. 

10 PM0DE4J 

20SS = PEEK(186)-256:DIML(1),B(1} 
30 FORK = 0TO7:READA:POKEK-32 + 



SS,A:NEXT 
40GET(0,0)-(7,7),L,G 
50 DATA 24,60,90,126,126,90,129,129 
60 PCLS:SCREEN1,1 
70 DRAW"BM0,191":FORX = 0TO256 

STEP16:READA:LINE-(X,A),PSET:NEXT: 

PAINT(127,191} 
80 DATA 151,173,177,165,146,120,167,174, 

177,181,181,170,140,122,158,170,161 
90 DRAW"BM1,1S8NRDNRDBDNRDRDL" 
100UNE{8,1)-(254,5),PSET,BF: 

LINE(132,7)- (132,12), PSET 
110LX = RND(248)-1:LY = 15 + RND(10): 

XV = RNDf 1 5) — 8:YV = 0:F = 246 
1 20 G0SUB1 000:GOSUB2000:GOSUB3000 
130 IF LY<174 THEN120 
140CLS:IFLX<144ORLX>153 

ORYV>4THEN160 
150PLAY"T10O4AGFEGFE":PRINT@225, 

"CONGRATULATIONS A SUCCESSFUL 

□ □□□LANDING !!":GOTO170 
160 PLAY"T100O2ADEFGBCDEFA": 

PUT(LX,LY) - {LX + 6,LY + 7),L,PSET 
170FORG = 1TO4000:NEXT 
180 END 



1000IFLY>12THENPUT(LX,LY)- 

(LX + 7,LY + 7),B,PSET 
1010 LX = LX + XV;LY=LY + YV:S = 255- 

(255ANDLY):SOUNDS-(S = 0),1 
1020 IF LY<13THENRETURN 
1030 IF LX<0 OR LX > 247 THENLX = 

-247*(LX<0) 
1040GET(LX,LY)-(LX + 7,LY + 7),B,G 
1 050 PUT(LX,LY) - (LX + 7,LY + 7),L, 

PSET:RETURN 
2000YV = YV + .5:IF F<1 THENRETURN 
2010 !FPEEK(341) =223 ANDF>3 

THENYV = YV-1:F = F-3:RETURN 
2020 IFPEEK(343) =223 THENXV = 

XV-.5:F = F-1:RETURN 
2030 IFPEEK(344) =223 THENXV = XV + 

,5:F=F-1 
2040 RETURN 
3000LINE(9 + F,1)-{12 + F,5), 

PRESET,BF 
301 V = 2*YV:1FABS(V) > 1 22 THEN 

V = 122*SGN(V) 
3020 UNE(8,8) - (255,1 1 ),PRESET,BF: 

LINE(132,8)-(132 + V,11),PSET,BF 
3030 RETURN 
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The trace mimics the original sound 

In this form, sound is an analogue signal — 
that is it varies continuously across a wide 
range, with each variation being significant. 
Unlike the human senses, computers are not 
capable of recognizing this sort of change, and 
instead need a digital signal. In this, each 
variation is represented by a distinctly differ- 
ent value, either a I or 0, a presence or 
absence of a signal. 

However, although the computer cannot 
directly interpret a sound signal, it is a fairly 
simple matter to turn the analogue waveform 
of a piece of music, say, into digital inform- 
ation for it to use. 

In practical applications, this technique is 
at the forefront of sound recording tech- 
nology, which is moving from traditional tape 
storage (of the analogue signal) to com- 
puterized systems with disk storage. The 
advantages are that once you have stored the 
sound in digital form, it is much easier to 
modify it or combine it with other sounds — 
and once recorded, there is far less risk of 
corruption due to the limitations of the 
recording system. 



MUSIC ON YOUR MICRO 



Although such technology at present only 
exists in a few expensive, highly sophisticated 
systems, your home computer already has the 
capability to explore its potential (unless you 
are an Acorn user). Every time that you LOAD 
a program stored on cassette tape, you are 
playing back a signal that has been stored 
digitally. And, as you will know if you have 
ever listened to a computer tape, the signal 
does produce a sound of sorts, too — although 
being digital, we cannot interpret it 
meaningfully. 

But with suitable programming (which 
involves using machine code), you can use 
this system to put music into your micro. All 
you need to do is to feed an analogue signal 
into the machine via the cassette socket, and 
tell the computer how to interpret this — by 
turning it into a digital signal. (Acorn com- 
puters cannot do this without the aid of 



additional hardware, which is why there are 
no programs for the BBC or Electron). 

Once the micro has done this, it can store 
the numbers produced in memory — or even 
display them, as the following sound analyzer 
program demonstrates. This enables your 
home micro to translate the analogue signal of 
any recorded sound into numbers that can be 
used to produce a graphic trace on the screen, 
or stored in the memory, for later playback. 



SOUND TRACE 



The first option the program offers is to 
produce a continuously changing graphic 
display of music or sound played on a tape 
recorder, connected to your micro. When the 
recorder is switched on, a series of closely 
spaced lines appear on the screen — the higher 
the frequency the longer the line. Once the 
screen is full, the trace will disappear and 
restart from the left-hand side of the screen. 



RECORDING SOUND 



The second option allows you to record the 
sound being fed into the cassette port — 
although the amount you can store is very 
limited for the reasons explained below. The 
third option then allows you to play back the 
recorded sound. 



HOW IT WORKS 



As the computer cannot directly interpret the 
variations of an analogue sound signal, it is 
programmed to assign digital values to these. 
What it does is to sample the signal at the 
cassette port at very rapid intervals — 
thousands of times per second. The signal at 
the cassette port can only be high or low, 
represented by a 1 or a 0— there are no in- 
between values as with an analogue signal. 
But because the sampling is so quick, the rate 
of change of the digital signals mimics the 
analogue wave form. 

Imagine, for example, that you feed in a 
signal with a frequency of 256 Hz (the note 
middle C), then the signal will peak 256 times 
a second, and each peak lasts for 1/512 
seconds. If you read the port 2,000 times a 
second, then at each peak it will read for 
approximately four samples. The signal will 
then read low for four samples, and so on. 
The variations in the digital values thus 
mirror the wave form more or less 
accurately — the more times you sample, the 
better the computer is able to pick up subtle 
changes. 

The program uses the digital values that it 
picks up in the two ways described above. To 
display the waveform graphically, it plots a 
chart showing how many high bits it finds in a 
unit time — the overall frequency of that short 



section of music. Again, the more frequent 
the sampling, and the more frequent the 
plotting, the more accurate the display. 

Recording is handled in a similar way. The 
computer counts up eight samples, then 
stores these as one byte in memory. The 
process is then repeated for the next eight 
samples, which arc placed in the next memory 
location. It happens so quickly that this 
requires a large amount of memory — on the 
Spectrum, for example, the whole of the 
available memory is required for about eight 
seconds of sound. 

Playback is just the reverse of this process, 
with the stored information being directed 
through the sound output to mimic the 
vibrations that were present at the cassette 
port during recording. But because of the 
limitations of the equipment, the net result is 
hardly hi-fi! 



The Spectrum program comes in two parts — 
a BASIC program to set up the routines and 
the screen display, and a machine code rout- 
ine to read the cassette port. Key in the first 
part and save it (using SAVE "ANALYZER" LINE 
5) then key in the second part which contains 
the machine code in the form of DATA which is 
POKEd into memory by Line 30. Line 80 
contains a checksum to ensure that you have 
entered the numbers correctly. RUN the 
program to set up the machine code, then 
SAVE "ANALYZER" CODE 65368, 1 09, immedi- 
ately after the BASIC set-up program. 

LOAD the BASIC program, which will 
auto-start from Line 5 and load the machine 
code data into high memory after resetting 
RAMTOP. When loading is complete, you 
will be presented with a menu which offers 
three choices. 

The first option will ask you to connect 
your tape recorder ear socket to the ear socket 




Micwtia 



Setting the sound level 

Your normal volume setting may not be 
ideal for a good sound trace. If your 
recorder has a PAUSE button, you can use 
this to set the best level. Run the tape, then 
PAUSE it while the computer is display- 
ing the trace. You should get a flat trace, 
showing an unchanging signal. Now turn 
the tape recorder as high as it will go 
before background noise starts to disrupt 
the pattern. 
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on the Spectrum and then play some recorded 
sound on the tape recorder. When you sub- 
sequently press any key, a continuous frequ- 
ency versus time graph is generated. To 
return to the main menu press M, or press F 
to freeze the display. If you select option F, 
the display will be regenerated if you then 
press any key. 

If you select option two, you are prompted 
to press a key to start recording and are 
notified when the recording has been com- 
pleted, before an automatic return to the main 
menu. You can record any sound, but short 
sharp sounds are best as, due to the limit- 
ations of the Spectrum, the sound heard on 
playback when option three is selected is 
slower than its natural speed, with most of the 
low frequency components filtered out — the 
cassette port cannot distinguish between 
frequencies below rather a high threshold 
level. As a result, the recording sounds 
slurred and deeper in tone. 

Due to the huge amount of memory needed 
to store what is, after all, a small amount of 
poor quality sound, it's not really worth 
trying to incorporate the recorded sound into 
other programs. However, if you want to 
experiment, it is possible to do this by 
entering SAVE "sound" CODE 26000, 39360. 
Then save the machine code to run the 
program by entering SAVE "driver" CODE 
65440,40. 

When you want to use these in your own 
program, reset RAMTOP by entering CLEAR 
25999. Then load the sound data, followed by 
the driver, bv entering LOAD ""CODE : 
LOAD"" CODE. 

To hear the sound, enter RANDOMIZE USR 
65440. Remember you will only have about 
3K of memory left to write the rest of your 
program in, which is not a lot unless you are a 
very efficient machine code programmer. 



THE BASIC SET-UP PROGRAM 



5 CLEAR 25999: LOAD "" CODE 
10GOSUB200:GOSUB500 
201FINKEY$ = ""THEN GOTO 20 
21 LET C = C0DE INKEY$: IF C< 49 OR 

C>51 THEN GOTO 20 
22GOSUB30:GOSUB200 

24 IF C = 49 THEN GOTO 100 

25 IF C = 50 THEN GOTO 600 

26 IF C = 51 THEN GOTO 700 

30 FOR N = 30 TO 50 STEP 3: BEEP .01 ,N: 
NEXT N: RETURN 

100 CLS : GOSUB 1000; PRINT AT 12,8; 
BRIGHT 1;"DPRESS ANY KEYG" 

101 IF INKEY$ = "" THEN GOTO 101 

102 BEEP .1,10 

104 CLS: GOSUB 150: GOSUB 800 

105 FOR X = TO 255: PLOT X,0: DRAW 0, 



USR 65368 

110 IF INKEY$ = "m" THEN GOSUB 30: 
GOTO 10 

111 IF INKEY$ = "f" THEN GOSUB 801: 
GOTO 140 

130 NEXT X: CLS : GOSUB 150: GOSUB 800: 
GOTO 105 

i40PRiNTAT0,0;"nnnnannnn 

DDDDDDDDDDQDDDD 

□ □□□□□□□": BEEP .1,40: 

PAUSE 50: IF INKEY$ = "" THEN GOTO 

140 
141 BEEP .1,10: CLS : GOTO 104 
150 PRINT AT 0,0; BRIGHT 1; 

"DDPRESS(M)TO RETURN TO 

MENUD D ": RETURN 
200 BORDER 5: PAPER 5: INK 0: CLS : 

RETURN 
500 PRINT AT 0,5; PAPER 2; INK 

7;""nn SOUND ANALYZER MENUDn" 
510 PRINT AT 5,7;"1. FREQ. BAR CHART";AT 

7,7;"2. RECORD S0UND";AT 9,7;"3. 

PLAYBACK SOUND" 
520 PRINT AT 15,5; PAPER 4;" PRESS (1) (2) 

OR (3) ": RETURN 
600 PAUSE 20: GOSUB 1000: PRINT AT 

13,0;"Press any key to START 

RECORDING" 

605 IF INKEY$ = "" THEN GOTO 605 

606 BEEP .05,20: CLS : PRINT AT 

1 0,1 0;"PLEASE WAIT": RANDOMIZE USR 
65408: BEEP .1,30: CLS : PRINT AT 10,6; 
BRIGHT 1;"nREC0RDING 
COMPLETER ": PAUSE 300: GOTO 10 
700 RANDOMIZE USR 65440: GOTO 10 

800 PRINT AT 1,0; PAPER 4;"DD PRESS (F) 
TO FREEZE PICTURED □": RETURN 

801 PRINT AT 1 ,0; PAPER 4;" DDD PRESS 
ANY KEY TO CONTINUED DD": 
RETURN 

1000 PRINT AT 4,2;"Connect ear socket of 
tape";AT 6,0;"recorder to ear socket of 
your'W 8,0;"Spectrum. Then play some 
music": RETURN 



THE MACHINE CODE ROUTINE 



10 CLEAR 26000: RESTORE : LET t = 0: LET 

x = 65368 
20 FOR n = 1 TO 108 
30 READ a: POKE x,a 
40 LET t = t + a 
50LETx = x + 1 
60 NEXT n 

70 IF t = 12721 THEN PRINT "OK.": STOP 
80 PRINT "DATA ERROR": STOP 
90 DATA 14,64,175,8,17,208,7,219,254,230, 

64,1 85,40,7,62,64,1 69,79,8,60,8,29,32, 

239,1 75,1 78,40,5,30,255,21 ,24,230,8,203, 

63,6,0,79,201 
100 DATA 243,33,144,101,17,80,255,6,7,219, 

254,203,1 1 9,32,2,203,254,203,62,1 6,244, 



35,1 25,1 87,32,237,1 24,186,32,233,251 , 
201 ,243,33,1 44,1 01 ,1 7,80,255,6,8,203,70, 
40,4 
110 DATA 62,0,211,254,62,255,211,254,203, 
1 4,1 6,240,35,1 25,1 87,32,233,1 24,1 86,32, 
229,251,201 



The Commodore program is only capable of 
fulfilling the first option — it produces a 
multi-coloured sound trace. It is possible to 
produce a program which will allow you to 
store a small amount of sound, but the 
amount of programming required to output a 
sound is beyond the scope of this article. 

The machine code data for the routine 
which reads the cassette port is contained 
within the main program as DATA starting at 
Line 1000. Once the program is entered, SAVE 
to tape or disk before RUNning it. You must 
then RUN the program. As the routine is so 
short, the machine code data is stored in the 
cassette buffer. Once the program is RUN, a 
message INSERT TAPE & PRESS PLAY 
THEN HIT RETURN appears on the 
screen. 

If you want to freeze the sound trace at a 
particular point, press any key. The picture 
on the screen will remain frozen until you 
release the depressed key. 

5 FOR Z = 832 TO 852:READ X:P0KE Z,X: 

NEXTZ 
8 PRINT "rjINSERT TAPE & PRESS PLAY 

THEN HIT RETURN":INPUT A$ 
10 HIRES 0,1:COLOUR 1,1:MULTI 3,4,7 
20 FOR Z = TO 159 
30 SYS 832 
40 IFPEEK(251)'4<200 THEN LINE Z,200,Z, 

200 - PEEK(251 )*4,RND(1 ) "3 + 1 :G0T0 50 
45IFPEEK(197)o64THEN45 
50NEXTZ:GOTO10 
1000 DATA 162,0,134,251,173,13,220,197, 

252,240,6,1 33,252,230,251 ,240,3,232 
1010 DATA 208,240,96 



mk*\ 



The machine code data for the routine which 
reads the cassette port is contained within the 
main program as DATA starting at Line 1000. 
A checksum is contained at the end of each 
line to enable you to check that you have 
entered the data correctly — when you run it 
the line will throw up an error report if there 
is a mistake. To use the program with the 
Tandy, certain alterations have to be made. In 
Line 1010, substitute 180 for 140 and 244 for 
55. The latter numbers are printed in bold so 
you can easily identify them. Checksum 1838 
then becomes 2067. In Line 1020 make the 
same substitutions and change the checksum 
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from 1618 to 1847. Also change USR01 in 
Line 420 to USR1 and similarly in Line 610 
change USR02 to USR2. 

Once the program is entered, SAVE to tape 
or disk before RUNning it. You must then RUN 
the program to POKE the machine code into 
higher memory. Once the program is RUN, 
the main menu will appear on the screen. If 
there is a mistake in the DATA, the message 
CHECK DATA IN LINE (relevant number) 
will appear on the screen. 

Press 1 for the first option. You will then be 
asked to position the tape. Press play on the 
recorder and | ENTER | , when the sound trace 
will automatically start. Press M to return to 
the main menu or [SHIFT | @ to freeze the 
picture. 

Press 2 for the second option (recorded 
sound), and you will be given the same 
instructions as for option 1. While the music 
is being recorded, a coloured display will 
appear on the screen. Once recording has 
finished, the display will disappear and the 
program returns to the main menu. 

Press 3 to play back the music you have just 
recorded. Unlike that on the Spectrum, music 
recorded on the Dragon or Tandy will play 
back at the same speed as the original. 

If you want to use the recorded sound in 
your own program, you can store it by 
entering CSAVEM"MUSIC'M 536,1 3823,1 536 
(add 1 536 to these three values if you are using 
a disk drive). To save the machine code which 
permits the program to run, enter CSAVEM 
"DRIVER", 31000., 31174, 31091. When you 
want to use this, reset RAMTOP bv entering 
CLEAR 200, 30999 and use PCLEAR 8 to 
protect the DATA. To load sound data, enter 
CLOADM "MUSIC" and for the machine code 
CLOADM "DRIVER". To play the recorded 
sound, enter EXEC 31091. 

If you do this, bear in mind that the 
recorded sound takes up a large amount of 
memory, leaving less space for your own 
program. 

10PCLEAR8:CLEAR200,30999:CLS:B = 191 
20 K = 31 000 

30 READA:IF A<0THEN60 
40IFA<256THENPOKEK,A:K=K + 1:T = 

T + A:GOTO30 
50 IF ToA THENPRINT" error.CHECK 

DATA IN UNE";1000+10*INT 

An analogue signal coming into the 
cassette port is sampled 2000 times a 
second. When the signal is above the 
threshold voltage, it is detected and 
registers a 1. Signals below this level 
register a 0. The digitally-produced 
trace thus, in effect, mimics the 
analogue sound wave 



((K-31001)/20):ENDELSET = 0:GOTO30 
60 DEFUSR0 = 31000:DEFUSR1 =31044: 

DEFUSR2 = 31091 
70 PRINT@14,"menu":PRINT@ 

135,"1 -FREQ. BAR CHART":PRINT@ 

199,"2- RECORD SOUND":PRINT@263, 

"3- PLAYBACK SOUND" 
80A$ = INKEY$:IFA$<"1"OR A$>"3" 

THEN80 
90 ON VAL(A$) GOSUB200,400,600 
100CLS:GOTO70 
200 PMODE4:COLOR0,5:CLS 
210 PRINT" POSITION TAPE, PRESS PLAY 

3DDDDDD FOLLOWED BY enter" 
220 M0TORON:AUDI0ON 
230IFINKEY$oCHR$(13) THEN230 
240 M0TOR0FF:PRINT@192,"PRESS *M' 

FOR MENU OR [SHIFT] @ TO FREEZE 

PICTURE" 
250 FORG = 1TO4000:NEXT:MOTORON 
260SCREENL1 
270 PCLSTORX = 0TO255:A = B - 4* 

USR0(0):IFA<0THENA = 
280UNE(X,B)-(X,A),PSET 
290 IF INKEY$ = "M" THENX = 255:NEXT: 

MOT0ROFF:RETURN 
300 NEXT:GOTO270 
400 CLS:PM0DE3:M0TORON:AUDIOON: 

PRINT" POSITION TAPE, THEN PRESS 

PLAY FOLLOWED BY enter" 
410 IF INKEY$oCHR$(13) THEN410 
420SCREEN1,0:N = USR01(0) 
430 MOT0R0FF:RETURN 
600 CLS:PRINT" PLAYING BACK RECORDED 

SOUND" 
610N = USR02(0) 
620PRINT@129."AGAIN (Y/N) ?" 
630 A$ = INKEY$:1F A$ <> "Y" AND 

A$o"N" THEN630 
640 IF A$ = "Y" THEN 600 
650 RETURN 
000 DATA 26,80,206,255.32,142,2.233,204, 

0,0,1 02,1 96,37,1 0,1 6,1 63,1 32,48,31 ,1 91 5 
010 DATA 38,245,126,140,55,195,0,1,32,7, 

1 02,1 96,36,237,1 6,1 63,1 32,48,31 ,38.1838 
020 DATA 245,126,140,55,26,80,142,0,0,48. 

31,38,252,220,25,131,0,1,52,6,1618 
030 DATA 158,186,198,8,134,11,74,38,253, 

1 1 8,255,32,1 05,1 32,90,39,4,1 8,1 8,32,1 903 
040 DATA 4,48,1,198,8,172,228,38,231,53, 

1 34,26,80,1 82,255,1 ,1 32,247,1 83,255,2476 
050 DATA 1,182,255,3,132,247,183,255,3, 

1 82,255,35,1 38,8,1 83,255,35,1 58,1 86,220, 

2916 
060 DATA 25,131,0,1,52,6,134,8,52,2,230, 

128,88,36,4,134,252,32,3,79,1397 
070 DATA 33,253,183,255,32,134,8,74,38, 

253,33,251 ,1 06,228,39,8,1 09,1 59,31 ,64, 

2291 
080 DATA 30,136,32,224,134,8,167,228,172, 

97,38,214,53,146,1679,-1 
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FOX AND 




Your computer can be a cunning Fox 
and Geese player. See how Artificial 
Intelligence methods can be applied 
to writing games programs which 
can think ahead 



Earlier in INPUT you saw how an Othello 
program could be written in which the com- 
puter could play an acceptable game against a 
human player. However, with a little practice, 
you should be able to beat the computer most 
of the time. 

Over the next three parts of Games Pro- 
gramming you'll see how a more sophisticated 
program can be written, to enable your 
computer to play the game of Fox and Geese, 
The program has many levels of skill, so you 
can make the game as difficult or as easy as 
you wish. 

Fox and Geese illustrates many .of the 
problems and principles involved in writing 
one of the most interesting and enduring of 
games programs to play — namely, chess. An 
average commercial chess program running 
on a home micro can give most chess players a 
run for their money, unless they are of a very 
good standard, or understand the weaknesses 
of computer chess. 

It's impossible to write a chess program 
that will be w'orth playing in BASIC, because 
the machine will take an age over each move. 
In the higher levels of Fox and Geese, you'll 
find that the program takes rather a long time 
considering each move — perhaps in excess of 
half an hour on the very highest levels 
running on the slower machines, The pro- 
blems would increase many-fold if you were 
to attempt to write a chess-playing program 
instead. 

To keep the exercise out of the 
realms of machine code, a simpler 
game is needed. Fox and Geese 
fills the bill very nicely because it 
has many of the characteristics of 
chess, and even takes place on the 
same kind of board. 

This article is in three parts. 
In this first part, you will see the 
principles behind a program of this type — 
building up to a complete, playable game in 
parts two and three. But let's start by looking 
at the game itself, and what is required of the 
program to play it. 



THE GAME 



Fox and Geese is played on the white squares 
of a standard chessboard. There is one fox 



which starts off at one end of the board, and 
four geese, which start from the opposite end. 
One player controls the fox, and the other the 
geese. The object of the game is for the fox to 
find its way past the geese and reach the 
opposite end of the board, or for the geese to 
corner the fox. 

With four against one, the game may seem 
a little one-sided, but the geese are limited to 
forward movement only, whereas the fox may 
move backwards as well as forwards. The 
program has been written so that the com- 
puter may play either the fox or the geese, or 
may be set to play against itself. 



TACKLING THE PROBLEMS 



Fox and Geese is very like chess in that there 
is no element of chance within the game — the 
outcome is totally dependent on the skill of 
the players. Although in theory it would be 
possible for the computer 



to learn to play through trial and error, like a 
human player, at the current state of the art 
this isn't the best way of solving the problems 
involved — and the program wouldn't fit in 
your micro! 

Programming a game like Fox and Geese, 
or chess, is really an exercise in Artificial 
Intelligence. To offer a stern challenge to a 
human opponent, the computer must be able 
to play intelligently. Unfortunately, the ma- 
chine cannot look at a board and absorb the 
spatial relationships between the pieces the 
way you can. Instead, the positions on the 
board have to be converted to numeric values 
that the computer can understand. 

If you want to write a program that will 
enable a computer to play intelligently, you 
must first look at the nature of the game. The 
type of game will dictate the type of program. 
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MAKING THE COMPUTER A 



SKILFUL PLAYER 



FOX AND GEESE AND CHESS 

THINKING PROGRAM THEORY 

EXPLAINING THE GAME 



TACKLING PROGRAMMING 

PROBLEMS 

EVALUATING GAME POSITIONS 

TREE SEARCHING 

STARTING THE PROGRAM 



There may be a fully-documented 'best 
method' which you could adapt. Likely 
candidates for this kind of treatment are 
things like solving Rubik's cube, noughts and 
crosses, or openings in chess. In cases like this 
your task has been greatly simplified. 

If there is a large element of chance in the 
game it may be possible to use a 'one-mover' 
strategy in which the program examines all 
the possibilities open to it, just one move 
ahead. The program should be designed to 
pick the best move. Ludo and Monopoly 
could be suitable candidates for one-movers. 
Games like this need comparatively 
simple decision-making routines. 

In games with little or no chance element, 1 
like Fox and Geese, you should use a 'con- 
secutive move' strategy — looking ahead 
through a series of moves to investigate the 
possible outcomes. The program finds the 
most advantageous move from any position, 
and then makes it. 
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EVALUATION OF POSITION 



In order to enable the computer to decide on 
the best move from a range of possibilities, 
each of the squares on the board is given a 
numeric value. In Fox and Geese, the further 
down the board the fox is, the better for the 
fox — remember, the fox wins when it reaches 
the opposite end of the board, 

The rows of squares are numbered altern- 
ately from left to right, and then right 
to left. This ensures that the geese will 
tend to keep in a straight line — their 
strongest configuration — as the highest- 
numbered square alternates between 
the left and right hand ends of the row. 

In addition to the simple positional evalu- 
ation, the five white squares in front of the fox 
have a special significance for the game. If you 
look at figure 1, you'll see five squares 
labelled A to E. If there is only one goose 
positioned on these squares, the fox will win; 
if there are two geese, and they are not on 
positions A or B; or if there are three geese, 
and they are at positions ACD, BDE, ACE or 
BCE, the fox will still win. 

At the start of each turn, when the com- 
puter is playing either the fox or the geese, the 
program jumps to a subroutine which looks at 
the position (or configuration) of all the pieces 
and converts it to a single number which the 
program uses to decide which move to make. 
When the decision has been made, the num- 
ber is converted back into a configuration. 
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TREE SEARCHING 



The possible moves from a position on the 
board can be represented by a tree structure, 
with branches emanating from the piece's 
(root) position. For example, from the po- 
sition in figure 2, the first level of the tree in 
figure 3 could be drawn. If you look ahead 



point in storing anything in a table unless at 
least five plies are being looked at. 

Thirdly, the so-called alpha-beta algorithm 
may be employed. This was discovered in the 
early 1960s by researchers in the field of 
artificial intelligence, and comes into play 
every time the tree search needs to examine 
more than one ply of a tree. 



If you look at figure 3, you can see the 
evaluations of the possible moves from a fox 
position. The program will fully evaluate 
branch A, and then pass on to branch B. If, at 
any stage in evaluating B, a worse outcome is 
found, all the moves in B will be rejected. The 
best move so far is remembered by the 
program and compared with the outcomes in 
each branch in turn. Finding at any point a 
worse outcome will cause the whole branch to 
be rejected. 

The alpha-beta algorithm really comes into 
its own as the tree gets more and more 
complex. If the tree gets big enough, it can 
allow you to discard about 99.8% of the 
possibilities at an earlier stage, with a similar 
saving in time. But in this game the tree will 
not approach this level of complexity. 



STARTING THE PROGRAM 



Now that you have some idea of the theory 
behind writing this kind of game, you can 
pass on to entering the first section of 
program. It concerns setting up the graphics, 
but you won't see anything at this stage if you 
RUN the program. Don't forget to SAVE it on 
tape ready for the next part of the program. 




two moves, the tree becomes more complex, 
as in the second level — notice that there is no 
reason for there always to be four branches 
from each square, because the piece may be 
blocked by another, or may find itself at the 
outside edge of the board. 



SPEEDING UP THE PROGRAM 



With the number of calculations to be perfor- 
med, BASIC can prove very slow, but there 
are three ways to speed up the program. 
Firstly, you can make sure that the program 
doesn't bother to evaluate the opponent's 
next move, if your move has won the game. 
However, this only saves time at the end, not 
throughout the game. 

Secondly, the same configuration can very 
frequently be reached from many different 
routes. If this is the case, it may pay you to 
build up a table of common configurations 
and the calculated values associated with 
them. Such a table stops the program assess- 
ing the position again individually each time, 
but there is no doubt in storing a configur- 
ation which would take less time to evaluate 
than it would to find it in the table. Theoreti- 
cally, the table can be used only when the 
program is looking ahead three plies (com- 
plete turns of both players) or more, the 
practice of the game proves that there is no 
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■29PJPJ 
6100 RETURN 



10DEFFNA(F) = INT(LN (F)/L2 + .001) 

100 GOTO 2002 

2002 GOSUB 5000 

2006 BORDER 4: PAPER 4: CLS 

2008 PRINT AT 8,1; FLASH 1;"PLEASE WAIT 

WHILE SETTING UP" 
5000 FOR J - USR "A" TO USR "D" + 7: 

READ A: POKE J,A: NEXT J: RETURN 
5070 DATA 20,28,55,127,15,20,40,72,0,0, 

248,252,250,40,20,20,0,0,0,7,205,123,60, 

15,12,20,31,152,248,216,48,224 
6000 LET S${1) = ' 

■ ■■ 
6010 LET S$(2) = ' 



KB 



■ ■ ii 

6015 LET S$(3) = 

11BPJ12" 
6030 LET S$(4) = 

■ ■■ 

6040 LET S$(5) = 

19BB2Q- 
6050 LET S$(6) = 

■ 21PJPJ" 
6060 LET S$(7) = 

27HH28" 
6070 LET S$(8) = 



□ 1PJPJD2PJ 
I 

'■■ 9BB10BH 

■ ■ ■■ ■ 

'■■17BB18BB 

'24BB23BB22B 

'■■25BB26BB 

32BB51BB30B 



Before using the Commodore program you 
must move up the start of BASIC to make 
room for the graphics sets. Type 

POKE 44,18 
POKE 256*1 8,0 
NEW 

each time before LOADing in the program. 

1 IFPEEK(44)=8THEN END 

2 POKE 53280,6:POKE 53281 ,6:PR1NT 



"□E1DEFINING GRAPHICS.,.": 

GOSUB 4000 
4000 POKE 56334,0:POKE 1,35 
4010 FOR Z = TO 1023:POKE 2048 + Z, 

PEEK{53248 + Z}:NEXTZ 
4020 POKE 1,39:POKE 56334,1 
4030 FOR Z = 680 TO 711:READ X:POKE 

2048 + Z,X:NEXTZ 














4040 FOR Z = 3329 TO 3334:P0KE Z,129: 




(2 


■ ■ ' b1 






NEXTZ:P0KE 3328,255:P0KE 3335,255 






r • y • ' " • - _ 1 






4050 RETURN 






I ';■■;;' .-- | 


''.:■"'.■ ■ 




5000 DATA 0,0,0,7,205,123,60,15,12,20,31, 






1 * 1 


';•■•.- • < ' 




152,248,216,48,224 






f 1 


i." '...' •■- •'■.; : ' ; 




5010 DATA 20,28,55,127,15,20,40,72,0,0, 




RBPJIS fiSPKjH 




248,252,250,40,20,20 




i .■ . - ■. 


T^M HHH Vfj 


f ':"• 




. ■ 


•• m S| W* .. 


L ' ': •■■'/ •■■'.-■ 


2 MODE 4 




. •■•■::• •• •. 


^a. *^^K 9 Wm ^bb»». .->' 


\ ' •*"'•■■<■ 


10 PRQCCHARS 






^■■V ^^^l -Jm' W^F~ ^flT 


L 


4000 DEFPROCCHARS 






•ZfV 




4010 REM 224:225 226:227 

4020 VDU 23,224,0,0,0,7,205,123,60,15 






m B ^Ktk'l 




4030 VDU 23,225,12,20,31,152,248,216,48,224 
4040 VDU 23,226,20,28,55,127,15,20,40,72 






1 .. ■■,..■ w bblJ 'M 




4050 VDU 23,227,0,0,248,252,250,40,20,20 






► ^ rw ^ * * ^L. 




4060 VDU 23,228,1 28,1 28,1 28,1 28,1 28,1 28, 
128,255 






P^^*™«» B^»»«»m * ^^^^B^^^H 




4070 VDU 23,229,1,1,1,1,1,1,1,255 

4080 VDU 23,230,255,128,128,128,128,128, 




' - < ■ 




I-' '.'- "•■< 




1 ' .._..■ •'. ■• 






128,128 








j ■»..»■ 


4090 VDU 23,231,255,1,1,1,1,1,1,1 




I ••; '.' .'.■ -■'". ■ . 


[' .1 J^ m-' ■ '•■^tab- 1 


L : .V ■-.'.>: . ; 


4100 VDU 23,232,80,160,80,160,80,160,80, 




!•'■■■"- ' ■'■•=■', 


L# ■» 1 ■■■> 9 ■ l» » 


[-" 


160 






1 J 


I 41 10 VDU 23,233,255,255,255,255,255,255, 




i*«"wi , » 


**'z^Lr *W9 


B^%^ 




* 255,255 




T 


mbWatSpJ 11 


* 5000 ENDPROC 




■ I5^^wSb 


HSU 






I - . . BVmhm ^^^HBhVt 4fl 


^r 


5 CLS:PRINT@230,"SETTING UP 




► 


f ' ■ ' '•^^ *^B T " 


;c 


GRAPHICS":GOSUB4000 






'■ F m. *t f '".''".■ 


* 1 . 


10SCREEN1,0:GOTO10 



1099 



36 



36 



4000PMODE3:PCLS:DIMGS(5),FX(4),SQ(10) 
4010DRAW"BM3,0C2FGR3FR5E3RED3FDGL 

GNFLNG2LH2LH":PAINT(12,5),2:PSET 

(0,1,4):PSET(14,5,4):PSET{16A4):GET 

(0,0)-{19,9),GS,G 
4020DRAW"BM18,20C4GL13HLG2R2F2ND4 

R10ND4U2":PAINT(10,22),4:PSET(2,21,1): 

GET(0,20)-(19,28),FX,G 
4030 LINE(0,0) - (175,175), PSET,BF:COLOR 

3:LINE{8,8) — (167,167), PSET,BF 
4040 FORK = 8T0128 STEP40:FORL = 28TO 

148STEP40:PUT(L,K)-(L+19,K + 19), 

SQ,PSET:PUT(L-20,K + 20)-(L-1, 

K + 39),SQ,PSET:NEXTL,K 
4050 PUT(68,1 3)- (87,21 ),FX,PSET 
4060 FORK = 8T0128 STEP40:PUT(K,153)- 



FNC(F)+4} = F$(FNW(F/4-.2) + 1) 
340 FOR A = 1 TO 8: PRINT AT 2*A,8; PAPER 
7;S$(A): PRINT AT 2*A+ 1,8; PAPER 
7;R$(A): NEXT A: RETURN 



iannn" 

350 PRINT TAB(7};"a H DDDD 
■ □";R$(A)".S1|]1 □ □ □ □": 
NEXTA:PRINT"H":RETURN 



310 F= FNA(ABS(P)) -31:B = P/B(F):IF 

B<0THENB = B + BX:F = 31-F 
320C = B/B{28):FORA = 7TO0STEP-1:R$ 

(A) = B$(1NT(C),1 ANDA):C = (C — INT 

(C))'16:NEXTA 
330 R$(F/4) = LEFT$(R$(F/4),FNC(F)) + F$ 

(F/4AND1) + RIGHT$(R$(F/4),12- FNC 

(F)) 
340 PRINT"a";:FORA = 0TO7:PRINTTAB 

(7);"jaanaaLJBH";S$(A)"a 



h 



aaar*"" ■ I 



:abaka4a£: 

:flaMa*£iBjfiia: 

"a.a^a.a^: 

::«a»a£a*a: 
::au,a^.a^.a«y: 
" i H a M a~ a: 



The Dragon's colourful board . . . 

(K + 19,162),GS,PSET:NEXT 

4070TH$ = "R2ND6R2BR4D6BR4U3LBR6ND 
3BU2UBF3ND3R4D3BR5U6D3NR3F3BR4U 
3BU2UBF3BR2ND3R4D3BR7L3U3R3D6L3 
BE3BR4RBR5RBR5R" 

4080MW$ = "ND6F3RU3D6BR9L4U3R4D3B 
E3F3UE2BR3R3DL3D2R3BR6NU6E2F2NU6 
BR3U6D3R4D3BR7L3U3R3DL3BR7NUNR2 
D2BR8L3U3R30L3BE4BR7R4D3L4D3" 

4090WG$ = "RD6E2F2U6BR4O6BR4U3NL2B 
F3U3BU2UBF3BRNR3D3R3BR4NU6BR4U3 
NL3BE3BR8L4D6R4U3BR4D3R4U3L4BR8 
D3R4U3L3BR9BUL2D2R2D2L2BR9L3U3R3 
DL" 

4100 V$ = "T402DEFBGACDEGGDCDE" 

4200C = 1:G = 0:RETURN 

5000 FORK = 1 T01 4:PUT(200,5) - (21 0,1 5), 
SQ,PRESET:PLAY"T50AC":PUT(200,5)- 
(210,15),SQ,PSET:PLAY"DA":NEXT: 
RETURN 



DISPLAYING THE BOARD 



31 LET F = FN A(ABS (P)} - 30: LET 
B = P/B(F): IF B<0 THEN LET 
B = B + BX: LET F = 33 — F 

320 LET C = B/B(29): FOR A = 8T0 1 STEP 
- 1 : LET R$(A) = B$(INT (C) + 1 ,(2 - FN 
W{A))):LETC = (C-INT(C))*16: NEXT A 

330 LET R$(INT (F/4 + .8))(FN C(F} + 1 TO 



and the Acorn version 



310F=FNA(ABS(P))- 31:B = P/B(F): 

IFB<0THENB = B + BX:F = 31-F 
320 C = B/B(28}: FOR A = 7TO0 STEP— 1: 

R$(A)= B$(INT(C),1 AND A):C = (C- 

INT(C))*16: NEXTA 
330R$(F/4) = LEFTS (R$(F/4), FNC 

(F)) + F$(F/4 AND 1) + RIGHTS 

(R${F/4), 12- FNC(F)) 
340 CLS: FOR A = 0TO7: PRINT TAB{8) 

CHRS 233; CHRS 233; CHR$ 233; 

CHRS 233; S$(A) CHR$ 233; CHR$ 233; 

CHRS 233; CHR$ 233 
350 PRINT TAB (8) CHRS 233; CHRS 233; 

CHRS 233; CHRS 233; R$(A) CHRS 233; 

CHRS 233; CHRS 233; CHR$ 233:NEXTA: 

RETURN 

Lines 310 to 350 display the board with the 
five pieces in position. The subroutine is 
called once a turn, by fox and geese alike. 

The drawing instructions for the Dragon 
and Tandy are in the subroutine along with 
the high resolution graphics DATA. 
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UFFHAN 
TARTING ©FF 



The 'CLIFFHANGER' listings published in this 
magazine and subsequent parts bear absolutely no 
resemblance to, and are in no way associated with, 
the computer game called 'CUFF HANGER' re- 
leased for the Commodore 64 and published by 
New Generation Software Limited. 



You've got a title page, an 
instruction page, cliff and a tune. 
But you need a routine that tells 
them when they're needed and 
starts Willie off 



This is part seven of Cliffhanger, so you 
might think that you have already started the 
game. 

A machine code game needs an initializ- 
ation routine which calls the titles and the 
instruction and the music and sets the score, 
levels and lives to their starting values, and 
starts off the game. Its origin is the loca- 
tion you call when you want to run the 



program. This is called from BASIC and 
normally you'd have a bootstrap program (see 
pages 459 to 463). Here, though, there is no 
real need for protection. Besides, you need to 
be able to get inside the program to modify 
it — so you won't want it auto-running. 



This is it: the routine that starts off the 
Spectrum version of Cliffhanger. 



nlv 



gbin 



org 58576 
call ti 
lda,5 

Id (57343},a 

Id a,0 

id (57344),a 



msk 



Id hl,0 

Id (57337),hl 

Id (57339),hl 

Id (57341 ),hl 

lda.19 

Id (60005),a 

ret 

org 58035 

org 58281 



The origin here is obviously the address you 
call with your RANDOMIZE USR command to 
set the game going. Make a note of it. 

The labels that lead instructions here are 
not called within this piece of programming. 




Illlllllll 



hWIIHiOhli 



They are called from other pieces of pro- 
gramming that will be published later. These 
are used to initialize the game when Willie has 
been killed and you have to start again. 



THE SET-UP 



The first thing the routine does is called the ti 
subroutine. This is the routine that prints the 
titles and the instruction pages call other 
routines given so far. 

The various score parameters are then 
initialized. The score itself is stored in mem- 
ory locations 57,331 to 57,342. The number 
of lives is stored in 57,343. And the level is 
stored in 57,344. 

So 5 is stored in 57,343 via the one byte A 
register to start the player off with five lives. 
And is stored in the level store 57,344, so 
that the game starts off on level one. 

The score is set to zero by loading 57,337 
and 57,338, 57,339 and 57,340, and 57,341 
and 57,342 with 0, via the two byte HL 
register pair. 

Then A is loaded with 19 and the music 
routine, msk is set to play 19 notes of 
Greensleeves. 



The following routine sets up the game so that 
its levels and lives are set as they should be at 
the beginning of each game: 

ORG 25856 

LDA #1 

STA 49152 

LDA #5 

STA 49153 

LDA #40 

STA 49164 

STA 49154 

LDA #15 

STA 53280 

STA 53281 

LDA #10 

STA 53287 

LDA #2 

STA 53288 

LDA #1 

STA 53289 

LDA #5 

STA 53290 

STA 53291 

STA 53292 

LDA #0 

STA 54276 

STA 54283 

STA 54290 

LDA #15 

STA 54296 

LDA #67 

STA 50000 




When do I start putting the 
game together? 

Cliffhanger has been designed so that 
you can either enter and assemble the 
whole thing in one go at the end or 
build it up week by week. As far as 
possible the program does not call 
routines coming in future issues. But it 
may call data and routines in earlier 
parts, so make sure these are in memory 
when you execute a routine to test it. 

If you have not assembled a routine 
that is called by the one you want 
to test, try putting a return 
instruction in at the point it 
is called. This will save 
you from a crash. 



LDA #4 

STA 50010 

LDA #112 

STA 50001 

LDA #4 

STA 50011 

LDA #230 

STA 2040 

LDA #232 

STA 2041 

LDA #237 

STA 2042 

LDA #234 

STA 2043 

STA 2044 

STA 2045 

LDA #233 

STA 2046 
RTS 

Memory location FFD2 is in the Kernal 
ROM. This routine is the one that PR I NTs a 
character string. The accumulator is used to 
carry parameters into that routine and loading 
A with 8, jumping to the subroutine at FFD2, 
then loading A with 142 and jumping to the 
subroutine has exactly the same effect as: 

PRINT CHR${8);CHR$(142) 

This, you may remember from BASIC, dis- 
ables the BE key. This is important. Hitting 
the BE key during the game — especially if it 
is shifted — can cause problems. 

Next the sprite collision flags have to be 
cleared, otherwise when the game is reset it 



will start on level two. This is done by loading 
the accumulator with the contents of the two 
collision flags at 53,278 and 53,279 on the 
VIC chip. 



ON THE LEVEL 



The game starts off each time on level one, so 
1 is loaded into the accumulator. This is then 
stored in the memory location which holds 
the level, 49,152. 

Willie has five lives to start with, so 5 is 
loaded into the accumulator and stored in the 
'lives' memory location, 49,153. 

The sea is controlled by the variable in 
49,164 and the delay which tells the game how 
fast to go is in 49,154. These are both 
initialized to 40. All the memory locations 
mentioned above are part of the variable table 
you have set up in RAM. 



COLOUR SET 



Memory locations 53,280 and 53,281 are on 
the VIC chip. 53,280 controls the border 
colour and 53,281 controls background 
colour zero. These are set to 15 which puts the 
screen into multi-colour mode. 

Memory locations 53,287 to 53,292 
inclusive are on the VIC chip too and set the 
colours of the first six sprites. 



THE SOUND OF SILENCE 



The next thing to do is to cope with the sound 
output. Locations 54,276, 54,283 and 54,296 
are all on the SID chip. And they're not really 
memory locations at all, they're control 
registers. 

54,276 controls voice one, 54,283 controls 
voice two, and 54,296 is the register that 
selects the filter mode and volume. Saying 
that they are registers means that each bit 
controls a different input/output function. 
For example, bit seven of the voice control 
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registers selects a random noise waveform. Bit 
six selects a pulse waveform, bit five a 
sawtooth waveform and bit four a triangular 
waveform. Bit three is a test bit which 
switches the oscillator off. Bit two controls 
ring modulation, bit one the synchronization 
and bit zero is the gate which either starts the 
note off or tells it when to begin cutting off 
the note. 

The filter mode and volume register acts 
similarly bit by bit. Bit seven controls the cut- 
off of voice three. Bits six, five and four select 
the high-pass, band-pass and low-pass filters 
respectively. And bits three to zero select the 
output volume which can be set anywhere 
between and 15. 

Each of the register's various functions are 
controlled by setting, or resetting, the appro- 
priate bit. Generally, setting a bit to 1 
switches on a particular function, and reset- 
ting it to switches that function off again. 

At the beginning of the game, you want to 
switch all these functions off to clear out any 
bits left over from sounds made before. So is 
loaded into the accumulator and stored in 
54,276, 54,283 and 54,290. 



GULLS AND SPRITES 



At the beginning of the game the seagulls have 
to be moved back to their start positions. The 
screen coordinates of the gulls change as the 
game goes on, so their values are stored in 
the variable table in RAM too, at memory 
locations 50,000 and 50,001, 50,010 and 
50,0! 1 . And the start coordinates of the gulls 
are stored in those locations. 



Memory locations 2,040 to 2,047 are in 
ROM. They are the sprite data pointers. The 
numbers in there tell the processor where to 
find the data for the sprites. You'll notice that 
the first seven sprite data pointers are loaded, 
while only the first six had their colours set. 
In fact, seven sprites are being used, but one 
of them is empty. And, although it needs null 
data to make it empty, it does not need to have 
a colour set as it only uses the background 
colour. 



LIVES AMD LEVELS 



At the beginning of each screen, you have to 
set the number of levels and lives to the right 
value. The following routine does just that: 



ORG 25393 


STA 49152 


LDX 49153 


INC 49153 


LDY #0 


DEC 49154 


LDA #27 


C LDX 49152 


LOOPISTA 1070,Y 


LDY #0 


INY 


LDA #9 


DEX 


LOOP STA 1 1 1 0,Y 


BNE LOOPI 


INY 


LDA LEVEL 


DEX 


CMP #6 


BNE LOOPJ 


BNE C 


RTS 


LDA #1 





The number of lives Willie has left are stored 
in 49,153. And the contents of this location 



^IV 



are loaded into the X register. The index 
register Y is then set to 0. 

The accumulator is then loaded with 27, 
which is the UDG number of the man 
graphic. This is stored on the screen at 
location 1,070 offset by Y. Y is incremented 
and X decremented. And if X has been 
decremented to zero, the processor loops 
back. 

So the processor goes round the loop the 
same number of times as the lives Willie has 
left. Each time it prints up a little man graphic 
on the next position on the screen. This gives 
as many men as lives left. 

The number of the level you are on is 
stored in 49,152. This is compared to six. If 
it's not six the processor branches forward 
over the next little routine. 

Level five is the top level in the game. So if 
the value in the level variable stored at 49,152 
has reached six, it is set back to one by loading 
1 into the accumulator and storing it in 
49,152. 

For completing level five — and nominally 
reaching level six — you earn an extra life. So 
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SC 



- 002*700 



LIVES 
SCORE 002 71 

LTVE5 - 



the life variable in 

^T ^k 49,153 is incremented. 

^W But because you are so 

clever, the advance of the 

sea is speeded up, so the delay 

variable in 49,154 is decremented. 

Next comes the loop which prints 

up the number of the level you're 

on, on the screen. It works exactly 

the same way as the lives loop above. 

This time, though, the contents of the 

level variable are loaded into the loop counter 

X, a different screen position is used and the 



1103 






number 9 is loaded into the accumulator and 
stored in the screen. This is the screen code 
for a capital I (or a 1 in Roman numerals). 



The Acorn's initialization routine calls many 
of the routines given so far, and a few that 
haven't, such as the ones at 1A2E and 1A3C. 
So don't call it until there are programs at all 
the addresses it jumps to, which will be given 
in later issues. Type PAGE = &3000, NEW 
(and *TAPE; if you have a DFS) as normal to 
type it in and assemble it. 

70 0ATA1 

80 DATA4 

90 DATA2 

100DATA5 

110DATA6 

1 20 F0RA% = &1 B2DT0&1 B31 : READ?A% :NEXT 

160FORPASS = 0TO3STEP3 

1 70 P% = &1 B32 

180 [OPTPASS 

190 .PtSc 

200LDA#22 

210JSR&FFEE 

220 LDA#2 



230 JSR&FFEE 

240JSR&1483 
250JSR&1855 
260 JSR&182D 
270JSR&1A2E 
280JSR&1A3C 
290JSR&1894 
300 LDX&83 
310 LDA&1B2D,X 
320 AND #8.1 
330 BEQLbl 
340JSR&193D 
350 .Lb1 
360 LDX&83 
370 LDA&1 B2D,X 
380AND#&2 
390 BEQLb2 
400 JSR&19B9 
410.Lb2 
420 JSR&1AFF 
430 RTS 
440 IN EXT 



SCREEN BY SCREEN 



The DATA tells the program what elements 
appear on which screen. The 1 specifies 



potholes, the 4 boulders and the 2 snakes. So 
5 specifies potholes and boulders and 6 
specifies snakes and boulders. This is the 
order that the obstacles come in. Again, this 
DATA is read into a data table— from &1B2D 
to &1B31 — where the machine code program 
can access it. 

The first thing the assembly language 
program does is change MODE. Loading 22 
into the accumulator and jumping to the 
routine at &FFEE, does that. The 2 loaded up 
after that and output through the &FFEE 
routine makes the change to MODE 2. Then 
the processor jumps to a series of subroutines 
— in Lines 240 to 290 — which set the game 
going. 

The routine at &1483 switches the cursor 
off. The one at &1855 sets the colours. The 
one at &182D defines the characters. The one 
at &1A2E prints the headings, seagulls and 
clouds. The one at &1A3C prints the score 
and lives. And the one at &1894 prints up the 
slope. 

The memory location at &83 is used to 
store the number of the level the player has 
reached. So it also specifies which screen is 
required. The level number is loaded from 
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&83 into the X register so that it can be used 
as an index. 

The accumulator is loaded with data from 
the screen data table, offset by the level 
number in X. And AN Ding it with 1 asks 
where bit zero is set and potholes are 
required. 

If this bit is not set, the BEQ jumps the next 
instruction. If it is set, the BEQ's condition is 
not fulfilled and the processor jumps to the 
subroutine at &1B2D, which prints the po- 
tholes over the contour of the slope. 

The appropriate data byte is loaded up 
again and ANDed with 2 this time. This checks 
whether bit one is set and whether snakes are 
required. 

Again, if this bit is not set, the BEQ jumps 
the next instruction. If it is set, the BEQ's 
condition is not fulfilled and the processor 
jumps to the subroutine at &19B9, which 
prints the snakes over the contour of the 
slope. The printing up the boulders are dealt 
with elsewhere. 

Finally in this section, processor jumps to 
the subroutine at &1AFF. This is the one that 
prints up Willie's goodies at the top of the 
slope. 



SSOI 



This is the routine that fires the Dragon 
version of Cliffhanger into action. 





ORG 


19426 


GB1N 


JSR 


START 




LDA 


#5 




STA 


18239 




CLR 


18238 




LDX 


#18240 




LDB 


#6 


GBINI 


CLR 

DECB 


,X + 




BNE 


GBINI 




RTS 




START 


EQU 


19000 



The origin here is obviously the address you 
call with your EXEC command to set the game 
going. Make a note of it. 

The labels that lead instructions here are 
not called within this piece of programming. 
They are called from other pieces of pro- 
gramming that will be published later. These 
are used to initialize the game again when 
Willie has been killed and you have to start all 
over again. 



MAKING A START 



The first thing this routine does is to jump to 
the subroutine labelled START. This is the 
routine that prints the title and instruction 
pages and starts the game going. The next 
thing that has to be done is to initialize all the 
score parameters. 

The level the player has reached is stored in 
memory location 18,238. The number of lives 
is stored in 18,239. And the score itself is 
stored in the six bytes from 18,240 onwards. 

So 5, the number of lives Willie starts out 
with, is loaded into the accumulator and 
stored in 18,239. Memory location 18,238 is 
then cleared to set the level to zero — which 
gives level one. 

The X register is then loaded with the 
location of the first score byte and B is loaded 
with 6 — the number of score bytes. CLR ,X + 
then clears the byte pointed to by X and 
increments X. DECB decrements B and the 
BNE instruction branches back to clear the 
next byte if the B has counted down to 0. This 
little routine sets all the memory locations 
18,240 to 18,245 — that is, those set aside to 
store the score — to 0, one after another. 
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HOW BASIC PRO 

ED 





The computer's inner workings may 
seem somewhat obscure, especially 
when things start to go wrong. But 
if you understand how a program is 
stored you're well on the way to 
sorting out the bugs 

Have you ever wondered what the computer 
does with a program when you type it in? You 
probably know that it stores it in a special area 
of memory reserved for BASIC programs, 
but do you know where this is, and do you 
know what the program looks like when it is 
converted into something the computer can 
understand? 

In fact the program in the computer's 
memory is very similar to the characters you 
type in and a lot of the numbers in memory 
are ASCII codes of letters from the program. 
But the computer shortens some words — the 
keywords — and puts in extra information, 
literally between the lines, to help it keep 
track of where it is. 

The computer also has a separate area 
where it stores the variables set up by the 
program as these change while the program is 
running and need to be updated continuous- 
ly. So when you type 10 LET A = 6, say, the 
computer stores the line as part of your 
program and also puts the name and value of 
the variable into the variable store. 

Now to start exploring. First enter the 
following simple program. Type it in exactly 
as shown. On the Spectrum don't enter any 
spaces at all. On the other computers enter a 
space only after the words PRINT and LET. You 
can now use this to discover how the com- 
puter stores programs. 

10 PRINT "HELLO" 
20 LET A = 2 
30 PRINT A 
40 STOP 



There are two memory addresses in the 
Spectrum which together act as a pointer to 
the start of the BASIC program — these ad- 
dresses are 23635 and 23636. To find out 
where your BASIC program starts, enter the 
following direct command: 



PRINT PEEK 23635 + 256*PEEK 23636 

This will normally give the answer 23755 for 
a 48K Spectrum. If you find that your 
computer gives a different answer and you 
have typed the command in correctly, then 
change 23755 in the following command to 
your value. Now type in this direct command 

FOR 1 = 23755 TO 23755 + 40:PRINT PEEK 
l;'TJ";:NEXTI 

You should get the following output. If not, 
check that you have typed the command 
correctly: 

10 9 245 34 72 69 

76 76 79 34 13 20 11 

241 65 61 50 14 

2 13 30 3 

245 65 13 40 2 226 
13 

Now, using the ASCII codes for letters and 
numbers, see if you can make sense of this: 



? ? ? 

L L 

? A 

} } 

A ? 



= 2 

? ? 

) 5 



You can see part of the BASIC program 
emerging already, but there are still a fair 
number of question marks. 

You might expect PRINT to precede the 
"HELLO" but instead the list shows the value 
245. The Spectrum uses values above 164 to 
signify BASIC keywords. If you consult a list 
of these in the manual you'll find that 245 is 
the value, called the token, used for PRINT. 
Looking at the values for the tokens, you can 
now fill in the keywords: 



L L 
? LET 

? ? 

PRINTA 



PRINT" 


H 


E 


p 5 


5 


5 


2 ? 


> 


} 


) > 


5 


■> 


} ) 


} 


STOP 



used to hold the low order part of the line 
number, the preceding byte is used for the 
higher order part. The next two bytes in the 
line, low order byte first this time, are used to 
store the length of the line, excluding these 
first four bytes. 

You now have the following picture: 

10 lenL lenH PRINT'" H E 

L L " ? .20 lenL 

lenH LET A =2 ? ? ? 

? ? ? ? 30 lenL lenH 

PRINTA ? 40 lenL lenH STOP 



Now for the final few bytes. The value 13 is 
used to indicate end-of-line (eol). The value 
14 indicates that the following four bytes are 
the coded form for a numerical constant, in 
this case 2. The code 14 is used to indicate a 
numerical constant in the variable list table 
(vlt). Here, then, is the final picture: 

10 lenL lenH PRINT" H E 

L L " eol 20 lenL 

lenH LET A =2 vlt 

2 eol 30 lenL lenH 

PRINTA eol 40 lenL lenH STOP 
eol 

The Spectrum places a number greater than 
40 in the higher order byte of the line number 
field to signify end of program. 

The command NEW erases any old 
programs and variables in the computer — you 
cannot retrieve it, so beware. 



If you look at the 2nd, 15th, 30 th and 37th 
bytes in the original table you will notice a 
pattern ... 10, 20, 30, 40. These bytes are 



STORING THE VARIABLES 



The last program showed how a BASIC 
program was stored in memory, but any 
variables set up by the program are stored 
separately in a special variable store. There 
are two memory addresses — 23627 and 
23628 — that contain the address of the start of 
the store, and another two — 23641 and 
23642 — that point to the end. 

Try out this program to print the entire 
contents of the store: 

1 FOR A - PEEK 23627 + 256'PEEK 23628 

TO PEEK 23641+ 256'PEEK 23642 
20 PRINT PEEK A;"Dn"; 
30 NEXT A 



FINDING THE START OF BASIC 
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NUMERIC VARIABLES 



First set up a variable: 
1 LETB = 1i 



RUNning the program gives the following 
output: 

98 146 18 124 225 
B «— value — ♦ 

The 98 is ASCII code for B plus 32, this 
shows the computer it is dealing with a 
numeric variable. The 150000 is stored in the 
next five bytes in floating point format (see 
page 790). The last two bytes 225 and 
signify the end of the variables store. They are 
always there and so will be missed out from 
the next examples. 

Long variable names are stored in a similar 
way although their names are scrambled 
rather more. Try this: 

1 LET DAVID = 30 
This gives: 

164 97 118 105 228 30 

D A V I D <— value -+ 

The first five bytes store the name DAVID 
except that the first letter has 96 added to it to 
indicate it is a long name, the middle ones 
have the usual 32 and the last letter has 160 
added on to indicate the end of the name. The 
last five bytes store the number. 



STRINGS AND ARRAYS 



The next program line shows how strings are 
stored: 

1 LET A$ = "STRING" 

65 6 83 84 82 73 78 71 

A STRING 

The name of the string, A, comes first 
followed by two bytes giving the length of the 
text. ASCII codes for the string itself follow 
immediately afterwards. 
Now try a numeric array: 

1 DIM F(2) 

2 LET F(1) = 100 

3 LET F{2) = 200 

134 13 1 2 100 
F 4 <— value — ► 

200 

*— value — * 

The first byte is F plus 64 for a numeric array 
variable. The next two contain the number of 
bytes following, low byte first. Count them, 
you'll find there are 13. The next byte gives 
the number of dimensions and the following 
two store the number of elements reserved. 
After that are the two numbers, each stored in 
five bytes. 



Finally, try a string array: 

1 DIM B$(2,6) 

2 LET B$(1} = "STRING" 
3LETB$(2) = "ARRAY" 
194 17 2 2 6 



83 84 82 73 78 71 65 82 82 65 89 32 
STRI NGARRAY 

The first byte is the ASCII code of B plus 128 
for string arrays. The next two give the 
number of bytes following. The next byte is 
the number of dimensions — in this case 2, 
followed by two pairs giving the number of 
elements in the array and the maximum 
length of each element. These are immedi- 
ately followed by the strings themselves. The 
space at the end is added on to the word 
ARRAY to full up the six characters allocated to 
each string. 



There are two memory addresses in the 64 
which together act as a pointer to the start of 
the BASIC program. These addresses are 43 
and 44. To find out where your BASIC 
program starts enter the following: 

PRINT PEEK (43) + 256TEEK (44) 

This will normally give you the answer 2049. 
If you find that your computer gives a 
different answer and you have typed the 
command in correctly, then change 2049 in 
the following command to your value: 



FOR 1 = 2049- 

(1);:NEXT 1 



■1 TO 2049 + 39: PRINT PEEK 



You should get the following output, if not 
check that you have typed the command 
correctly: 

15 8 10 153 32 34 

72 69 76 76 79 34 25 

8 20 136 32 65 178 50 

33 8 30 153 32 65 

39 8 40 144 


Now using the ASCII codes for letters and 
numbers, see if you can make some sense of 
this: 



? 

H 
} 
} 
} 

5 





□ 

> 



D 
} 

} 

I J 



} 
2 
A 
? 



You can see part of the BASIC program 
already but there are still a fair number of 
question marks. Note that the space box — 
□ — represents a space. 



You might expect to find the word PRINT 
preceding "HELLO" but instead there is the 
value 153. The computer uses values above 
127 to indicate BASIC keywords. If you 
consult a list of these keywords in the manual 
you'll find that 153 is the value, called the 
token, used for PRINT. You can now fill in the 
keywords: 



? ? 

L 

LET □ 

p p 

5 5 



PRINT □ 
" ? 
A 

PRINT □ 
STOP ? 



If you look at the 3rd, 17th, 27th and 35th 
bytes you will notice a pattern ... 10, 20, 30, 
40. These bytes are used to hold the low order 
byte of the line number, the following bytes 
are used to store the high order byte. The two 
bytes before the line numbers, again low byte 
first, are pointers to the start of the next line. 
For example, the first two bytes, 15 and 8, 
point to 15 + 256*8 which equals 2063. Since 
the address of the first byte is 2048 you can 
easily count along to check that the address 
2063 is indeed the start of the next set of 
pointers. This is shown more clearly below. 
Note that the computer uses a to mark the 
end-of-line (eol): 

ptrL ptrH 10 PRINT □ " 

HELLO " eol prtl 

ptrH 20 LET D A =2 

eol ptrL ptrH 30 PRINT □ A 

eol ptrL ptrH 40 STOP eol 


The computer signifies the end of a program 
by setting the pointer fields (ptrL and ptrH) 
equal to zero, so a BASIC program always 
ends with three zeros. 

When you type NEW, the first two pointer 
bytes are set to zero so it is fairly easy to reset 
these. The high pointer is always 8 and the 
low pointer should equal the length of the 
first line counting from the zero to the eol 
marker. 



STORING THE VARIABLES 



The Commodore has three areas where it can 
store variables. Simple variables are stored 
immediately after the BASIC program and 
locations 45 and 46 hold the address of the 
start of the store. Array variables are stored 
next, with the start address kept in locations 
47 and 48. And two more locations — 49 and 
50 point to the end of the variable store. Any 
strings are stored at the other end of the 
RAM. The start address is given by the 
contents of locations 5 1 and 52 and the end 
address bv locations 53 and 54. 



SIMPLE VARIABLES 



All these locations allow you to find out 
exactly where the variables are, and the next 
program actually looks through the simple 
variable store to see what happens to the 
variable A. The numbers underneath are the 
contents of the store and if any of these are 
ASCII codes they have been translated for 
you: 

1 AB = 1 23 

10 FOR Z= PEEK(45) + PEEK{46)*256 TO 

PEEK(47) + PEEK(48)*256-1 
20 PRINT PEEK(Z);:NEXT Z 



65 


66 


135 


118 








A 


B 


<— 


value 




— ► 


90 





140 


5 48 








Z 


+— 




value 




-» 



The last seven bytes store the variable Z and 
constitute the part of the program used to 
look at the memory. So to save confusion 
these bytes will be left out from now on. The 
variable you're interested in is AB and it is 
simply stored as the ASCII codes for A and B 
followed by the value of the variable in 
floating point format. 

If you change Line 1 to a string variable 
you'll get the following numbers: 

1 ZZ$ = "TEXT" 

90 218 4 10 8 
Z Z 

The ASCII codes for the variable's name ZZ 
comes first, but the second number has 128 
added on to it to indicate a string. The next 
number gives the number of characters in the 
string and the next two bytes are the low and 
high pointers to the position of the string in 
memory, In this case it is 10 + 8*256 which 
equals 2058. This is in fact the position of the 
word TEXT in the BASIC program. However, 
if the variable changed in the program or it 
was originally undefined (as in an INPUT), 
then the pointers would point to the string 
store which is at the top end of RAM. 



ARRAY VARIABLES 



A string array is stored in a similar way to a 
string. Try the next program and see. Notice 
that the pointers in Line 10 are now pointing 
to the start and end of the array store: 

1 DIM AA$(2) 

2AA$(1) = "APPLE" 

3AA$(2) = "PLUM" 

10FORZ = PEEK(47) + PEEK(48)"256TO 

PEEK(49) + PEEK(50)*256-1 
20 PRINT PEEK(Z);:NEXT Z 

65 193 16 1 3 5 26 8 4 45 8 



As usual this starts with the name and again 
128 is added on the second letter because this 
is a string variable. The next number, 16, is 
the number of bytes taken up in the store. 
Count them and check that there are 16. The 
next pair gives the number of dimensions and 
the pair after that the number of elements 
reserved by the DIM statement. Following 
these numbers are three bytes per element. As 
the first element AA${0) is not defined, the 
first three are zero. For the others, the first 
byte gives the number of characters in the 
string and the next two point to the position of 
the string. 

Finally, try a numeric array, a two- 
dimensional one this time: 

1 DIM AA(0,2) 
2AA{0,0) = 1 
3AA{0,2) = 2 

65 65 24 2 3 1 129 

<— value — * 
00000 130 0000 
<— value — ► <— value — > 

You should be able to work out the first five 
bytes by now. The next two pairs hold the 
number of elements in each dimension but in 
the opposite order to the DIM statement. 
These are then followed by the values of the 
variables in floating point format. 



The Acorn computers have a BASIC variable 
called PAGE which contains the address of the 
first byte of the program. PAGE can be 
changed, but it is &E00 when you first switch 
on unless you have a disk drive. Now type in 
this direct command 

M0DE1: PRINTTAB(0,10): FOR I = PAGE TO 
PAGE + 36:PRINT?I;:NEXTI 

You should get the following output, if not 
check that you have typed the command in 
correctly. 

13 10 13 241 32 34 72 

69 76 76 79 34 13 20 

9 233 32 65 61 50 13 

30 7 241 32 65 13 40 

5 250 13 255 

Now using the ASCII codes for letters and 
numbers, see if you can make some sense of 
this: 



> 


■> 


J 


> 


? 


a 


ft 


H 


E 


L 


L 





" 


> 


} 


} 


■> 


} 


□ 


A 


= 


2 


} 


} 


■) 


5 


> 


□ 


A 


} 


} 


> 


5 


5 


> 


? 


■> 









You can see part of the BASIC program 
already but there are still a fair number of 



question marks which represent out of range 
codes. (Note the space box — D — is used to 
represent a space.) 

You might expect to find PRINT preceding 
"HELLO" but instead there is the value 241. 
The Acorns use values above 127 to signify 
BASIC keywords. If you consult a list of 
these keywords in the BASIC manual you'll 
find that 241 is the value, called the token, 
used for PRINT. You can now fill in the 
keywords: 

? ? ? ? PRINT □ " H 

E L L " ? ? ? 

LET D A =2 ? ? 

? PRINT □ A ? ? ? 

STOP ? ? ? 

You now have to discover what the four bytes 
at the start of the line are used for. If you look 
at the 3rd, 16th, 25th and 32nd bytes you will 
notice a pattern — 10, 20, 30, 40. From this 
you can deduce that these bytes are used to 
hold the line number. The first byte of each 
line, ASCI1 13, is used to indicate the start of 
the line (sol). The 4th byte is used to contain 
the length of the line (len), this count includes 
the bytes used for the line number as well as 
the first byte. 

You now have the following picture: 

sol 10 len PRINT □ " H 

E L L " sol 20 

len LET D A =2 sol 

30 len PRINT □ A sol 40 

len STOP sol 255 

After the final sol there is the value 255 in the 
higher order byte of the line number. If you 
multiply 255*256 you will get an answer 
which exceeds the allowable line number on 
the BBC. This is how the BBC signifies end of 
program. 

All BASIC programs end with 255 and 
(or &FF and in hex), and the variable TOP 
always points to the next byte after 0. In fact 
TOP is always two bytes more than PAGE 
because these two bytes are present. 

Typing NEW on the BBC sets the second 
byte of the program, location PAGE + 1, to 
255. Typing OLD will change it back to 0. If 
you want to see this for yourself then enter the 
following direct command: 

P. ?PAGE, ?(PAGE + 1), ?(PAGE + 2), 
?(PAGE + 3), ?(PAGE + 4) 

Then type NEW followed by the same direct 
command and you will notice that location 
PAGE + 1 has changed its value from to 255. 
The computer sees this in the high order byte 
of the line number, so assumes this to be the 
end of the program. The program is not lost, 
it's just that the computer doesn't know it is 



there. Typing OLD resets the second byte to 
zero. 



STORING THE VARIABLES 



The Acorn computers use a special variable 
called LOMEM which contains the address of 
the first byte of the variable store. LOMEM is 
normally the same as TOP so the variables sit 
immediately above a program, but it can be 
changed. The address of the top of the store is 
contained in memory locations 2 and 3; 
there's no special variable name in this case. 
The following one-line program prints out 
the entire variable store: Type 
PAGE = &00"TAPE and NEW before typing this 
in. Don't type any spaces except those 
indicated. 

10 FOR A = LOMEM D TO ?2 + 256"?3-1: 
PRINT;?A;"D";:NEXT:PRINT 

If you type RUN you'll see the following: 

0140 98160 

These store the last value of the variable A 
used in the program above, and to save con- 
fusion they will be missed off all the following 
examples. 



NUMERIC VARIABLES 



Now try setting up a variable. Enter this line 
and type RUN, the numbers show the output, 
and the ASCII codes have been translated 
into letters underneath: 

1 HELLO = 123 

69 76 79 135 118 

E L L ^- value -► 

The first two bytes are pointers which hold 
the address of the next variable beginning 
with the same initial letter — there isn't one in 
this case so the bytes are zero. If you get some 
other number in the first byte don't worry. 
This is the least significant byte and is not 
cleared by the computer so it takes on what- 
ever value was in that location before. If the 
second byte (the most significant byte) is zero 
then the other is assumed to be zero as well. 
The pointers are followed by the ASCII 
codes for the variable name minus the first 
letter, then a zero byte then the value of the 
variable in floating point format. 
Now try an integer variable: 

1 NUMBER%=123 

85 77 66 69 82 37 

U M B E R % 
123 
<— value— ► 

Again, there are two pointer bytes followed 
by the ASCII for UMBER% and a zero. But 
this time the number is stored in integer 



format, taking only four bytes. Using integers 1 DIMNUM(1 ,1 ) 
saves memory and helps to speed up a 2NUM(1,1)=40 
program. 3NUM(1,0) = 20 

4NUM(0,0) = 10 



STRING VARIABLES 



String variables are slightly more compli- 
cated, try this: 

1S$ = "A STRING" 

36 62 14 16 8 

$ 
65 32 83 84 82 73 78 71 
A STRING 

As usual the first two bytes are a pointer to the 
next variable starting with S. Then there's the 
variable name minus the first letter, which 
just leaves the $ sign for a single letter variable 
like this. Then there's the usual zero byte. 
The next two numbers — 62 and 1 4— hold the 
address of where the string is stored. The next 
number gives the total number of bytes taken 
up in the store (count them, there are 16). The 
next number — 8 — gives the number of bytes 
in the string, and this is followed by the 
ASCII codes for A STRING. 

Have a look at the numbers 62 and 14 
again. These point to address 62+14*256 
which equals 3646. This gives the address of 
the first letter in the string — the A. To prove 
to yourself that this is correct, type PRINT 
LOMEM to find the start of the store and add 
on the eight bytes to bring you to the A in the 
numbers above. The two numbers should be 
the same. 



ARRAY VARIABLES 



Try a string array first: 

1 DIMW0RD$(1} 
2WORD$(0) = "ZERO" 
3W0RD$(1) = "0NE" 

79 82 68 36 40 3 2 106 14 

R D $ ( 
4 4 110 14 3 3 90 69 82 79 79 78 69 
Z E R N E 

This starts off similar to a string variable — the 
pointer followed by ASCII for 0RD$( and a 
zero. The next number tells you how many 
dimensions there are, worked out as 
2*dims+l. So a one-dimensional array like 
this has the number 3, a two-dimensional 
array has 5 and so on. The next two bytes 
store the number of elements set up by the 
DIM statement. Each element now has four 
bytes reserved for it; the first two bytes — 106 
and 14 — give the address of the start of the 
word ZERO and the next byte (repeated) gives 
the number of characters in the string. After 
these come the strings themselves. 
Now trv a numerical array: 



2 



85 77 40 5 2 
U M ( 

132 32 
«— value — > <— value — » 

133 32 134 32 
*— value — * <— value — » 

This starts off fairly normally. The number 5 
shows there are two dimensions since 2*2 + 1 
equals 5. The next two pairs of bytes give the 
number of elements in each dimension — this 
is a 2 by 2 array. 

After this comes the elements themselves 
in the correct order, it doesn't matter in what 
order they were specified. The numbers 10, 
20 and 40 are stored as 1 32 32 0, 1 33 32 
and 134 32 in floating point format. 
Notice that memory is reserved for element 
(0,1) and is set to 0. 



USD 



There are two memory addresses in the 
Dragon which together act as a pointer to the 
start of the BASIC program. These addresses 
are decimal 25 (hex 19) and decimal 26 (hex 
1A). To find out where your BASIC program 
starts enter the following direct command: 

PRINT PEEK(25)*256 + PEEK(26) 

If the computer has just been switched on the 
answer will be 7681. If you find that your 
machine gives a different answer and you have 
typed the command in correctly then change 
the 7681 in the following command to your 
value: 

FOR 1 = 7681 TO 7681 +39:PRINT PEEK(I);: 
NEXT I 

You should get the following output, if not, 
check that you have typed the command in 
correctly: 

30 15 10 135 32 34 72 

69 76 76 79 34 30 25 

20 142 32 65 203 50 

30 33 30 135 32 65 

30 39 40 146 

Now, using the ASCII codes, for letters and 
numbers, see if you can make sense of this: 

? ? ? ? ? TJ " H 
L L " ? ? ? 

? ? DA? 2 ? 
? ? ? ? □ A ? 
??????? 

You can see part of the BASIC program 
already, but there are still a fair number of 




question marks. Note that the space box — 
□ — means a space. 

Looking at the above you might expect the 
word PRINT to precede "HELLO", but instead 
the value 135 appears. The computer uses 
values above 127 to signify BASIC keywords. 
The number 135 is the value, called the token, 
used for PRINT. With these values, you can 
now fill in the keywords: 



Unfortunately, the manual doesn't list the 
values of the tokens but you can find out what 
they are using the following program: 



m 



? ? ? ? 

E L L 

? ? LET □ 

? ? ? ? 

5 -> 5 ? 



PRINT □ " 

? ? 

A = 2 

PRINT □ A 

STOP ? ? 



H 



10 CLEAR 1000:CLS 

20C = 32819:FORK = 0TO78 

30W$(K/39)=W$(K/39) + CHR$ 

(PEEK(C)) 
40 C = C + 1 : IF PEEK(C — 1)<128 THEN 30 
50 NEXT 

60 C = 33226: FOR K = 1 TO 34 
70F$=F$ + CHR$(PEEK(C)) 
80C = C + 1:IFPEEK(C-1)<128THEN70 
90 NEXT 



100 PRINT:INPUT"_!NPUT TOKEN IN 

HEXLT'J$ 
110TK = VAL("&H" + T$) 
120 IF TK>65280 THEN TK = TK 

65280:GOTO 210 
130 IFTK<128 OR TK> 205 THEN 250 
140K=-39*(TK>166):P = 1 

150 IF K=TK-128 THEN W$ = W$ 

(K/39): GOTO 180 
160 P = P + 1:IF ASC(MID$(W$(K/39), 
P — 1,1)) <128 THEN 160 

170K = K+1:GOTO150 
180PRINT:PRINT"DTOKENLJ"; 

T$;"D = D"; 
1 90 A$ = MID$(W$,P,1 ):IF A$ < CHR$ 



(128) THEN PRINTA$;:P = P + 1: 

GOTO 190 
200 PRINTCHR$(ASC(A$)AND127): 

GOTO 100 
210K = 0:P = 1:IFTK<128ORTK>161 

THEN 250 
220 IF K = TK- 128 THEN W$ = F$: 

GOTO 180 
230P = P + 1:IFASC(MID$(F$,P-1, 

1)}< 128 THEN 230 
24(5 K=K + 1:GOTO 220 
250 PRINT" D ILLEGAL TOKEN D": 

PRINT:GOTO100 



tari 



For the Tandy change Lines 20 and 60 and 
add Lines 45 and 85: 

20C = 43622:FORK = 0TO78 
45 IF K = 52 THEN C = 33155 

60C = 43802:FORK=1 TO 34 
85IFK = 20THENC = 33310 

Enter any token and the program will print 
out the keyword. The numbers for the tokens, 
in hex, range from 8© up to CD for most 
keywords, and from FF80 to FFA1 for 
functions. 

You now only have to discover what the 
four bytes at the start of the line and the final 
byte of the line are used for. If you look at the 
4th, 18th, 28th and 36th bytes you will notice 
a pattern ... 10, 20, 30, 40. These bytes are 
used to hold the line number and the zero 
before them is the high order byte used for 
large line numbers. 

The first two bytes of each line are used as a 
pointer to the byte where the next line starts. 
For example, the first two bytes are 30 and 15 
in locations 7681 and 7682. Multiplying the 
contents of location 7681 by 256 and adding 
the contents of location 7682, that is 
30*256+15, gives 7695 the location which 
contains the first byte of Line 20. So the final 
picture looks like this: 

ptrH ptrL 10 PRINT □ " H 

E L L " eol prtH ptrL 

20 LET □ A =2 eol 

ptrH ptrL 30 PRINT □ A eol 

ptrH ptrL 40 STOP eol 

Typing NEW on the Dragon resets not only 
7681 and 7682 to but also resets several 
other locations in memory, and so it is not a 
simple matter to retrieve the program. You 
can check this for yourself by using a series of 
PEEKs to look at the first few location both 
before and after a NEW. You have to enter the 
PEEKs one by one — you cannot use a FOR ... 
NEXT loop as that sets up a new variable which 
will alter the program and make it impossible 
for you to see what's happening. 



STORING THE VARIABLES 



The last section showed how a program was 
stored but any variables setup by the program 
are stored separately in two special variable 
stores. There are two memory locations — 27 
and 28 — that contain the address of the start 
of the first store, used for simple variables. 
Two other locations — 29 and 30 point to the 
start of the array variables store. Simple 
variables can also be pointed to directly using 
VARPTR followed by the name of the variable. 
So VARPTR{A) points to the location of the 
value of the variable A. The name of the 
variable is stored immediately before its value 
so VARPTR(A)-2 points to the start of its 
name. 



SIMPLE VARIABLES 



The next program prints out the first six 
bytes of the simple variable store showing 
how variable A is stored: 

1 A = 1 

10V = VARPTR(A)-2 
20FORK = VTOV+6 
30 PRINTPEEK(K); 
40 NEXT: PR I NT 

You should see the following numbers (any 
ASCII codes have been translated for you 
underneath): 

65 129 
A <— value — » 

The letter A is stored first then there's a free 
byte to leave room for two-lettered variables, 
followed by the number 1 in floating point 
format. 



STRING VARIABLES 



Strings are stored in a similar way to simple 
variables. Change the A in Line 10 to AA$ and 
change Line 1 to: 

1 AA$ = "TESTING" 

This time you'll get: 

65 193 7 30 10 
A A 

The name AA is stored in the first two bytes 
and the second letter has 128 added to it to 
indicate it is a string. The 7 gives the number 
of bytes allocated (count them). The two zeros 
are used for garbage collection, that is when 
the computer clears out all the old strings and 
tidies up all the current ones. The 30 and 10 
are the high and low bytes of the address 
where the word TESTING is stored. 

If you work it out, this is 30*256+10, 
which equals 7690 and is in fact the position 
of the word in the BASIC program. The 



Dragon and Tandy save memory this way by 
not duplicating the word. But as soon as the 
variable is altered, the new contents are put at 
the top of available RAM and the pointers are 
altered to point to the new word. All new 
strings are stored here at the very top of 
available RAM. 



ARRAY VARIABLES 



The next few lines look at the array variable 
store: 

10T = 1:K = 1:V = PEEK(29)*256 + PEEK{30) 
20T = PEEK{V + 2)"256 + PEEK(V+3) 
30 FOR K = VT0 V+T-1 
40 PRINT PEEK(K); 
50 NEXT 

Add these lines and RUN the program to get 
the list of numbers below: 

■1 DIMA(0,2) 
2A(0,0) = 10 
3A(0,2} = 20 

65 24 2 3 1 132 32 

A *— value — * 

133 32 
<— value — ► <— value — » 

As usual the first two bytes give the name, and 
the next two the length (again, count them to 
check). Then follows the number of dimen- 
sions, 2, and two pairs of bytes giving the 
number of elements set up in reverse order — 
the 03 and 01 indicate a 1 by 3 array. After 
this are the values themselves in floating point 
format. Notice that space is allocated to 
element (0,1) even though a value is not 
assigned. 

Finally, try a string array: 

1 DIM A$(2) 
2A$(0) = "TEXT" 
3A$(2} = "ARRAY" 

65 128 22 1 034030 2400 00 50 
30 41 

This is very similar to the way simple strings 
are stored. 

There's the 65 for the A, 1 28 to indicate a 
string, two bytes for the length, one for the 
dimension and one pair giving the number of 
elements. Next follows three groups of five 
bytes per string. Each group starts with a 
number telling how many characters are in 
that string — 4 in the first case for TEXT, then a 
zero for housekeeping, two bytes giving the 
address of the string and another byte for 
housekeeping. This is repeated for the other 
two strings even the one that hasn't been 
defined. The 30's may be different if the 
program is located in a different part of 
memory. 



CUMULATIVE INDEX 



An interim index will be published each week. There will be a complete index in the last issue of INPUT. 



A 



109B 

1092 
1049-1056 



992-997 



Alpha-beta algorithm 
Analogue sound signal 
Animals, measuring growth of 
Animation 

of UDGs in cliffhanger 
using colour fill techniques 

Acorn 
using GCOL 3 

Acorn 
using paged graphics 
Applications 
calendar and diary program 

1010-1016, 1017-1021 
hobbies file, extra options 
magnification program 
text-editor program 

852-856, 878-883, 914-920 
Artificial intelligence 884, 1096-1097 
ASCII codes 
of BASIC programs in memory 

1106-1112 
of Teletext graphics 
BBC 1068-1073 



B 



BASIC 

adding instructions to 

Acorn, Dragon, Spectrum 844-85 1 

Basic programming 
analyzing and storing sounds 1091-1095 
animation with paged graphics 1022-1027 
colour commands, Acorn 953-959 

Computer Aided Design 998-1004 

designing a new typeface 838-843 

drawing conic sections 857-863, 889-895 
how programs are stored 1 1 06-1 1 1 2 

mathematics of growth 1 049-1 056 

mechanics, principles of 933-939 

multi-key control 974-979 

musical chords and harmonies 985-991 
programming function keys 825-829 
secret codes 960-965,1044-1048 

speeding up BASIC programs 921-927 



Calendar program 

part 1 1010-1016 

part 2 1017-1021 

part 3 1064-1067 

Chords, musical 

definition 985-986 

programs to play 
Acorn, Commodore 64 986-991 

Cliffhanger game 

pan 1— title page 904-913 

part 2 — adding instructions 928-932 

part 3 — adding a tune 966-973 

part 4— graphics and merging 992-997 
part 5 — setting the scene 1034-1043 

part 6 — perils and rewards 1057-1063 
part 7 — initializing routine 1101-1105 

Codes, secret 960-965,1044-1048 

Colour 
defining in machine code 

1034-1043, 1057-1063 
filling in with 

Acorn 953-959 

routines for changing 

Commodore 64 872-877 

using in Teletext mode 

SBC 1068-1073 



Computer Aided Design 

rubber-banding and picking 

and dragging 998-1004 

Conk sections 857-863, 889-895 

Cryptography 960-965, 1044-1048 



D 



955-959 


Diary program 




part 1 


999-1000 


part 2 


1022-1027 


part 3 




Digital clock routine 




Digital sound signal 


1064-1067 


Drawing 


947-952 


a new typeface 


1081-1087 


in magnification pro, 



1010-1016 

1017-1021 

1064-1067 

896-898 

1092 

838-843 



Engineering 

see mechanics 



1056 



953-959 



Fibonacci numbers 
Filling in with colour 

Acorn 
Fox and geese game 

part 1— principles and graphics 

1096-1100 
Fruit machine game 

part 1 1028-1033 

part 2 1074-1080 

Function keys, programming 

Acorn, Commodore 64, Vic 20 826-829 



Games 

cliffhanger 904-913, 928-932, 966-973, 
992-997, 1034-1043, 1057-1063, 1101-1105 
fox and geese 1096-1100 

fruit machine 1028-1033, 1074-1080 
goldmine 830-837, 864-871 

lunar touchdown 1088-1090 

magnification 1081-1087 

multi-key control for 974-979 

Othello 980-984, 1005-1009 

wordgame 899-903, 940-945 

Goldmine game 

part 1— basic routines 830-837 

part 2— option subroutines 864-871 

Graphics 

colour commands, Acorn 953-959 

effects using curves 857-863, 889-895 
hi-res 
for custom typeface 838-843 

setting up new commands 

Commodore 64 872-877 

magnification program for 1081-1087 



paged, for animation 

picking and dragging 

rubber-banding 

trace of sound 

using Teletext mode, BBC 
Graphs 

in plant growth program 
Grid 

for Teletext graphics 
BBC 



1022-1027 
1000-1004 
998-1000 
1092-1095 
1068-1073 

1052-1054 



H 



Instructions, adding to BASIC 
Acorn, Dragon, Spectrum 



844-851 



K 



Keyboard, matrix of 
Keypresses 

detecting 

Acorn, Commodore 64, Vic 20 

in cliffhanger game 
for direct entry graphics 

BBC 
how they work 
multiple, programming for 



974-976 



827-829 
929-932 

1073 
826, 974 
974-979 



Letter-generator program 
Lunar touchdown game 



838-843 
1088-1090 



M 



Machine code 

games programming 

see cliffhanger 
merging routines 992-997 

routines for hi-res graphics 

Commodore 64 872-877 

routine lb alter BASIC 844-849 

timer routine 896-898 

turle rouline 966-973 

Magnification program 1081-1087 

Mathematical functions 
in mechanics 935 

speedy use of 923-924 

to draw curves 857-863, 889-895 

to measure growth 1049-1056 

Mechanics 
programs to show principles of 933-939 

Memory 

how BASIC programs are stored in 

1106-1112 
mapping, definition 1023 

paged graphics in 1023-1027 

requirements of Teletext mode 

BBC 1068 

saving vs speed 923 

Merging machine code routines 992-997 

Multi-key control, programming for 

974-979 

Music 

analyzing and storing 1091-1095 

chords and harmonies 985-991 

machine code routine for 966-973 



N 



Numbers 
Fibonacci 
generation program 







Othello board game 

part 1 
part 2 
Overwriting, avoiding 



1056 
1054-1055 



980-984 

1005-1009 

994-997 



Hobbies file, extra options for 947-952 



PAGE, Acorn 


1109 


Paged graphics 


1023-1027 


PEEK 





at BASIC programs in memory 

1105-1112 
Peripherals 

robotics 884-888 

Picking and dragging 1000-1004 

Plant growth program 1052-1053 

PLOT 

new commands, Acorn 953-959 

PROCedures, Acorn 

advantages of 922, 924 

use of to fill with colour 954-959 



Robotics 884-888 

Rubber-banding 998-1000 



SAVEing 

problems with when merging 992-997 

Scaling 
custom typeface 924-927 

in magnification program 1081-1087 

parabolas and hyperbolas 859-861, 863 

Search routines 

binary and serial 924-927 

in text-editor program 914-920 

Sort routines 

in hobbies file program 947-953 

in text-editor program 914-920 

Sounds, analyzing and storing 1091-1095 

Speeding up BASIC programs 921-927 

Sprites, Commodore 64 
in cliffhanger game 993-995, 1058-1060 
setting colour of 1 102-1 103 



Teletext mode, BBC 
Text -editor program 

part 1 — basic routines 

part 2— editing facilities 

part 3 — sorting, searching, 
formatting and printout 
Timer routine 

for BASIC lines 

machine code 
Tokens 

for keyboards in memory 

recognizing new 
Trace, sound 
Tree search 

in board games 
Typeface, setting up new 



u 



UDGs 

stock, storing 



1068-1073 



852-856 
878-883 



922 
896-898 

1106-1112 

844-851 

1092-1095 

1098-1099 
838-843 



1040 



V 

Variables 

managing for program speed 923-925 
storing in memory 1 106-1 1 12 



w 



Wordgame 

pan 1 — basic routines 899-903 

part 2 — adding the options 940-945 



Zoom effect 

in magnification program 1081-1087 
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^ Avert financial disaster (or, at least, 
see it coming!) with SPREADSHEETS, 
the cornerstone of forward planning 

I— J Save Willie from the rising tide, waft 
the clouds along, and gain control over 
boulders and boas when you RESET 
THE VARIABLES in CLIFFHANGER 

—J Put theory into practice and a gaggle of 
routines to FOX AND GEESE to 
initialize the game and map future 
moves 

—I See practical applications of flicker 
book animation in MORE ABOUT 
PAGED GRAPHICS 

LJ Computers always sound the same — or 
do they? ACORN and COMMODORE 
owners can imitate real sounds and 
instruments using SOUND ENVELOPES 



A MARSHALL CAVENDISH COMPUTER COURSE IN WEEKLY PARTS 



LEARN PROGRAMMING - FOR FUN AND THE FUTURE 
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